o 



O 



CONTROL DATA 9 SMM17 



Program Listings 
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RECORD of REVISIONS x 


REVISION 


NOTES \ 


A 


Manual released. Information complete through SMM17 Edition 2.1. 


(2-1-69) 




B 


Information complete through SMM17 Edition 2.2 Obsoletine all previous editions. 


(11-17-69) 




C 


Information complete through SMM17 Edition 2.3. This edition obsoletes all previous editions. 


(9-15-70) 




D 


Information complete through SMM17 Edition 3. 0. This edition obsoletes all previous editions. 


(4-12-73) 




E 


Information complete through SMM17 Edition 3. 1. This edition obsoletes all previous editions. 


(5-1-74) 




F 


Information complete through SMM17 Edition 3. 1-1. This edition obsoletes all previous editions. 


(2-4-75) 
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DATE! 01/04/75 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 



NAM CRPAOD 10154 COPYRIGHT CONTROL DATA CORP 1974 

****** ****************************************************************** 

* * 

********** REVISION RECORD ****************** 

* * 

* MOUAYR VERSION WHAT DONE , WHY , AND WHO DID IT * 

* 032074 V 3.1 



* 
* 

* * 

************************************************************************ 



SYSTEM RELEASED 

CORRECTED INITIAL MESSAGE TYPEOUT 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 



0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 



******************* 



* UPDATED VERSION OF TEST $00 

* 

* HILL RUN W/COMHON OR INDIVIDUAL 

* INTERRUPT LINES 



******************* 



00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
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OATP! Cl/0*f/75 



002* 



♦PROGRAMMER - NED T. HURST 



0002*1 



0026 



♦1723 EQUIPMENT SELECT (Q10 THRU Q07 = EQUIPMENT NUMBER) 



00026 



0028 
0029 
0030 
0031 



READER, STATION i 

Q05 = 1, 006 - 0. 
PUNCH, STATION 2 

005 = 0, Q»j6 = 1. 



00028 
00029 
00030 
00031 



0033 



♦1728 OTRECTOR FUNCTIONS (Q00 = 1) 



00033 



0035 
0036 
0037 
0038 
0039 
0040 
0041 



A00 CLEAP CONTROLLER. 

A01 CLEAR INTERRUPTS. 

A02 DATA INTERRUPT REQUEST. 

A03 INTERRUPT ON EOP (COLUMN 81 TIME). 

AO/f INTERRUPT ON ALARM. 

A0 7 FEED CYCLE. 

AOfl OFFSET. 



00035 
00036 
00037 
00038 
00039 
00040 
00041 



0043 

0045 
0046 
0047 
0048 
0049 
0050 
0051 

on52 

0053 
005* 
0055 
0056 



0058 

0060 
0061 
0062 
0063 
006* 
0065 
0066 



"DIRECTOR STATUS LEVEL 1 (PRIMARY), QOO = 1, Q01 = 0. 



AOG 


READY 


A01 


BUSY 


A02 


INTERRUPT 


A03 


DATA 


AO* 


EOP 


A05 


ALARM 


A06 


LOST DATA 


A07 


PROTECTED 


A01 


ERROR 


A09 


MOTION FAILURE 


AiO 


END OF FILE 


All 


CHIP 30X 


I STATUS 


LEVEL ? (SECONDARY) 


A00 


HOPPER EMPTY 


A01 


STACKER FULL 


AO? 


FAIL TO FEED 


AD3 


READ AREA JAM 


AO* 


PUNCH ARFA JAM 


A05 


STACKER AREA JAM 


A06 


PRE-READ ERROR 



, Q00 = 1, Q01 = 1. 



000*3 

00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 



00053 

00060 
00061 
00062 
00063 
00064 
00065 
00066 
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0067 * A37 PUNCH ERROR 00067 

0068 * A10 INTERLOCK 00068 
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0070 

0072 
0073 

0075 

0077 
0078 

0080 

0082 

008*» 

0086 
0037 

0089 
0090 

0092 
0093 

0095 
0096 

0098 
0099 

0101 
0102 

0104 
0105 

0107 
0108 

0110 
0111 

0113 

oim 

0115 

0117 
0118 

0120 
0121 



♦ERROR 


COOES 


* 


01 


♦ 




■» 


02 


* 
* 


03 


* 


04 


* 


05 


* 


06 


¥ 


07 


* 




* 


08 


* 




* 


09 



OA 
OB 
00 
DO 
f)E 
OF 
10 

It 
12 



EQUIPMENT ADDRESS IN ERROR (OPERATOR ERROR). 
TEST MUST BE CALLED AGAIN. 

INSUFFICIENT MEMORY FOR TEST. 

PARAMETER IN ERROR (OPERATOR ERROR). 
PARAMETERS MUST BE SELECTED AGAIN. 

UNEXPECTED INTERNAL REJECT. 

UNEXPECTED EXTERNAL REJECT. 

UNEXPECTED REPLY 

UNEXPECTED LEVEL 1 STATUS. 

A = ACTUAL STATUS, Q = EXPECTED STATUS. 

UNEXPECTED LEVEL 2 STATUS. 

A = ACTUAL STATUS, Q = EXPECTED STATUS. 

NO DATA INTERRUPT WHEN EXPECTED. 
A = LEVEL 1 STATUS, Q = 0000. 

UNEXPECTED OATA INTERRUPT. 

A = LEVEL 1 STATUS, Q = 0000. 

NO ENO-OF-OPERATION INTERRUPT WHEN EXPECTED. 
A = LEVEL 1 STATUS, Q = 0000. 

UNEXPECTED END-OF-OPERATION INTERRUPT. 
A = LEVEL 1 STATUS, Q. = 0000. 

NO ALARM INTERRUPT WHEN EXPECTED. 

A = LEVEL 1 STATUS, Q = LEVEL 2 STATUS. 

UNEXPECTED ALARM INTERRUPT. 

A = LEVEL 1 STATUS, Q = LEVEL 2 STATUS. 

UNEXPECTED 1706 BUFFERED DATA CHANNEL STATUS. 
A = ACTUAL STATUS, Q = EXPECTED STATUS. 



TATA ERROR 

A = ACTUAL OATA, 

A •-: COLUMN NUMBER, 

WRONG COLUMN COUNT 
A = ACTUAL COUNT, 



Q = EXPECTED DATA, 
Q = PATTERN NUMBER. 



Q = EXPECTEO COUNT f 30 DECIMAL). 



UNTOENTIFTABLE PATTERN 

A = FIRST COLUMN, Q = SECOND COLUMN. 



00070 

00072 
00073 

00075 

00077 
00078 

00080 

00082 

00084 

00086 
00087 

00089 
00090 

00 092 
00093 

00095 
00096 

00098 
00099 

00101 
00102 

00104 
00105 

00107 
00108 

00110 
00111 

00113 
00114 
00115 

00117 
00116 

00120 
00121 
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OATEI 01/04/75 



0123 
0124 

0126 
0127 



13 



1*» 



WRONG 1706 CURRENT WORD ADORESS. 

A = ACTUAL ADDRESS, Q = EXPECTED ADDRESS. 

UNIDENTIFIABLE INTERRUPT 

A =• LEVEL 1 STATUSt Q = 0000 



00123 
00124 

00126 
00127 



&0?7130e F 
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0129 



•PRESTOREO PARAMETERS 



00129 



0131 
0132 
0133 
013<t 
0135 



SECTOT (INITIAL AODRESS ♦ 7) SECTIONS TO TEST 
INTLINES (INITIAL ADORESS * fl) OXYZ WHERE, 

X = OATA INTERRUPT LINE 

V s EOP INTERRUPT LINE 

Z = ALARM INTERRUPT LINE. 



00131 
00132 
00133 
0013% 
00135 



0137 



'CAUTIONS TO USER 



00137 



0139 
01i»0 



THE CHOSEN EQUIPMENT ADORESS MUST HAVE BITS 01 THRU 06 
ALL EQUAL TO ZERO. 



00139 
001*0 
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0142 POOOO 1809 

0143 POOOi 4352 
P0002 5041 
P0003 3044 

0144 POOC* 078C 

0145 P0Q05 OOOQ 



CRPAHO 



PARADR 
RFTURN 



JMP* 
ALF 



AOC 
ADC 



START 
3,CRPAQD 



pin 

BEGIN 



00142 
00143 



00144 
00145 



0147 
0148 
0149 
0150 
0151 P0006 0001 



EO 



THE EQUIPMENT ADDRESS FOR STATION 0, LEVEL 1 STATUS INPUT 
IS STORED HERE BY THE MONITOR WHEN IT LOADS THE TEST. THE 
OPFRATOR SPECIFIES THE EQUIPMENT ADDRESS WHEN HE CALLS 
THE TEST. 
NUH $0001 EQ. ADDRESS FOR STATUS INPUT, 



00147 
00148 
00149 
00150 
00151 



0153 

015<» P0007 OOFF 

0155 P0Q08 0888 

0156 P0009 1800 
P000A 076A 



♦PRE3TORED PARAMETFRS 
SECTOT NUM SOOFF 
INTLINES NUM $0888 
START JMP MCREST 



SECTTONS = THRU 7, 
INTERRUPT LINES 



00153 
00154 
00155 
00156 



0158 
- 0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
8168 
0169 
0170 
0171 
J 0172 
0173 

0174 

0175 
0176 
0177 
0178 
0179 
.0180 
0181 
0182 
0183 
0184 
0185 





•LOCATIONS IN 


MONITOR 


0001 


EQU 


CONTROL(l) 


0002 


EQU 


STOPX(CONTROL+1) 


0003 


EQU 


EXITtSTOPX+1) 


0004 


EQU 


REQINTCEXIT+l) 


0005 


EQU 


FCLRINT<REQINT*1> 


0006 


EQU 


JUMP<REQINT+21 


0007 


EQU 


GENRAN<JUMP*1» 


0008 


EQU 


TYPEOUT(GENRAN+l) 


0009 


EOU 


TTYBZY(TYPEOUT+l) 


OQOA 


EQU 


HEXASCCTYPEOUT+2) 


000B 


EQU 


OVRLAYIHEXASC+1) 


000C 


EQU 


RELPOS(OVRLAY*l> 


0O0D 


EQU 


MAINLCRELPOS+1) 


0042 


EQU 


SETMASKCMAINL+53* 


0043 


EQU 


STJP(SETMASK*1> 


0044 


EQU 


LASTVALU(STJP*1) 


0045 


EQU 


LASTADISTJP+21 


0047 


EQU 


LOLCOREILASTAD+2I 


0048 


EQU 


LOLlCOR«LDLCORE+i> 


00 49 


EQU 


INF0RM(L0L1C0R+1) 


0G56 


EQU 


SMMCNTUNFORM+13) 


0068 


EQU 


BITOOCSMMCNT+21) 


0068 


EQU 


BITO(BITOO) 


00 6C 


EQU 


BITKBITO+i) 


006D 


EQU 


8IT2(BITH-i> 


006E 


EQU 


BIT3(BIT2+1) 


006F 


EQU 


BIT4CBIT3+1) 



RETURN SMM CONTROL ADDRESS. 

ALL STOPS AND ERROR TYPEOUTS 

END OF TEST-PASS EXIT 

REQUEST INTERRUPT ADDRESS 

FAKE CLEAR INTERRUPT ROUTINE 

CHECK SKIPSWITCH FOR PARAM ENTRY 

RANDOM NUMBER GENERATOR 

MESSAGF TYPEOUT ROUTINE 

ROUTINE TO WAIT TTV NOT BUSY. 

HEX TO ASCII CONVERSION 

OVERLAY CALL ROUTINE. 

A/Q RELATIVE POSITION TEST. 

MANUAL INTERRUPT ROUTINE. 

M REGISTER RESET VALUE. 

STOP/JUMP PARAMETER WORD. 

MONITOR AREA LWA+1 

AVAILABLE LOAD CORE FWA. 

BANKO LAST AODR 

BANK1 LAST AODR 

8K0 SIZE* HASK SIZE* BUSY SWITCH 

SMM PARAMETER WORD. 

XXXXXXXX CONSTANT TABLE XXXXXXXX 



00156 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00166 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00162 
00163 
00164 
00185 
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Oj 


0186 


0070 


EQU 


6IT5(BIT4+1) 




0187 


0071 


EQU 


BIT6(BIT5»1) 




0188 


0072 


EQU 


BXT7(BIT6+1! 




0189 


0073 


EQU 


8IT8CBIT7+1) 




0190 


0074 


EQU 


8IT9(BIT8«-1> 




0191 


0075 


EQU 


8IT10CBIT9+1) 




0192 


0076 


EQU 


BITllfBIT10*il 




0193 


0077 


EQU 


BXT12(BIT11»1) 




0194 


0078 


EQU 


8IT13«BIT12*i> 




0195 


0079 


EQU 


8IT14(BIT13*1) 




0196 


007A 


EQU 


BIT15CBTT14*1) 




0197 


007B 


EQU 


H00O0(BIT15*l) 




0198 


00 7G 


EQU 


HFFFFCHOOQO+l) 




0199 


007D 


EQU 


H000FCHFFFF*1> 




0200 


007E 


EQU 


H00F0(H000F+l> 




0201 


007F 


EQU 


HOFOOCHOOFO+l) 




0202 


0080 


EQU 


HFO0O<H0F0Q+t> 




0203 


0081 


EQU 


HOOFFCHFOOO+l) 




0204 


,0082 


EQU 


HFF00(H00FF+1) 




0205 


0083 


EQU 


HFFFOCHFFOOU! 




0206 


0084 


EQU 


H0FFFtHFFFO+l> 




0207 


0085 


EQU 


HFFQF<H0FFF+1I 




0208 


0086 


EQU 


HF0FF<HFF0F*1> 




0209 


0087 


EQU 


H7FFF<HF0FF*1> 




0210 


0088 


EQU 


H7F00CH7FFF+11 




0211 


0089 


EQU 


H0780CH7F0O+1) 




0212 


008A 


EQU 


H807FCH0780+1I 




0213 


008B 


EQU 


H2020CH007F+1) 




0214 


0091 


EQU 


TSACTVCH2020+6) 




0215 


• ■■-. 0092 ■■■■'-: 


EQU 


TSFREQ(TSACTV+i) 




0216 


0060 


EQU 


CONST <BIT00> 




0217 


0056 


EQU 


SMMPARCSHMCNTI 




0218 - 


0043 


• EQU 


SJPAP«5TJP> 




0219 


0007 


EQU 


RANOONCGENRAN) 




0220 


000A 


EQU 


CONVERT (HEXASC) 




0221 


0008 


EQU 


HESSAGiTYPEOUU 




0222 


0004 


EQU 


REQND(REQINT) 




0223 


0005 


EQU 


CLRNOIFCLRINT1 




022V 


OOOA 


......-, EQU - 


GQNVCHEXASO- 




0225 


0009 


EQU 


SHMTYPING(TTYBZY) 




0226 


0140 


EQU 


REGIS140) 




0227 


...„ »... , 









TABLE INDEX TO TEST IN CONTROL. 
TEST, FREQUENCY TABLE 



INTERRUPT MOOE. 



06186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00282 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
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CRPA0O 


0229 




0230 




0231 




0233 


00E5 


023* 


00E6 


0235 


00E7 


0236 


00E8 


0237 


00E9 


0238 


OOEA 


0239 


OflEB 


0240 


OOEC 


0241 


OOEO 


0242 


OCEE 


0243 


OUEF 


024<» 


OOFO 


0245 


0OF1 


02<»6 


00F2 


0247 


0OF3 


0248 


00F4 


02d9 


00F5 


0250 


0CF6 


0251 


0OF7 


0252 


00F8 


0253 


00F9 


025*1 


OOFA 


0255 


0CF9 


0256 


OG04 


0257 


0005 


0258 


0006 


0259 


00 07 


0260 


0QD8 


0261 


0009 


0262 


OODA 


0263 


OOOB 


026i» 


OOOC 


0265 


OGDO 


0266 


OODE 


0267 


OODF 


0268 


OOEO 


0269 


00E2 
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♦DIRECT LOCATIONS USED BY THIS TEST. 

* INITIAL ADDRESSES OF SUBROUTINES ARE STOREO HERE 

* DURING INITIALIZATION. 

EQU SMM<$E5> 

EQU 5TATUS<SHM*1> 

EOU IC10(STATUS+i> 

EQU IC100(IC10+1) 

EQU INITDATA<IC10O+l> 

EQU INITEOPCINITOATA+1) 

EQU INITALARM<INITE0P*1> 

EQU ERRORMINITALARM+i) 

EQU ERR0R5<ERR0R*»4-1> 

EQU ERR0R6<ERR0R5+1> 

EQU EKR0R7(ERR0R6+1> 

EQU ERR0R8(ERR0R7*1) 

EQU EPR0R9 (ERRORS +1) 

EQU ERR0RA«ERR0R9+1> 

EQU ERRORBCERRORA+1) 

EQU ERR0RCIERR0R8H) 

EQU ERRORO(ERRORC+l) 

EQU ERROSEiERRORD+i) 

EQU FRRORFIERRORE+1) 

EQU GENERATECERRORF+i) 

EQU SECCGENERATE+1) 

EQU EQUIP<S£C+11 

EQU CHANCEQUIP+1) 

EQU BDCSTAUSOM 

EQU BDCCWA<BDCSTAT*1> 

EQU TIME(BDCCHA+1) 

EQU COLUMNCTIMEfl) 

EQU BIAS(COLUMN*ll 

EQU EOFFLAG<BIAS+l> 

EQU DATAIF(EOFFLAGfl) 

EQU EOPIFCOATAIF+1) 

EOU ALAIF(SOC) 

EQU STATION(ALAIFtl) 

EQU COUNTER*STATION+l> 

EQU ACT(COUNTER*l> 

EQU EXP<4CT+1> 

EQU OFFSTFCEXP+2) 



00229 
00230 
00231 

00233 
0023* 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
0025«i 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
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0271 P000B 5800 BEGIN 
POOOC 0BA6 



RTJ 



INITIAL 



INITIALIZE TEST, 



00271 



0273 
027*» 

0275 POOOD 08Mf 

0276 POOOE 600E 

0277 POOOF 6800 
P0010 0887 



♦ COME HERE IF OPERATOR SETS P = IA, OR 

♦ TO RESTART TEST WHEN BIT 10 OF STOP/JUMP HORO IS SET. 
RESTART CLR A 

STA- COUNTER INITIALIZE LOOP COUNTER. 

STA TMP 



00273 
0027* 
00275 
00276 
00277 
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0279 
0280 
0281 



»**«** *♦♦***»»»♦**»***♦*♦**♦**»»*»♦*»♦*♦*♦»»♦*#♦**♦#»***»♦»♦* *********** 00279 
•SECTION '0 - PUNCH STATIC CHECK 00280 

"00000000 00000000 000000000000000000 0000 0000 00000Q00000O00Q00000O000O00Q0 00281 



0283 

0284 POOH 0844 

0285 POO 12 6GF9 

0286 P0013 C3F3 

0287 P0014 A06B 

0288 P0015 0112 

0289 P0016 1800 
P0017 0155 



•INITIALIZE SECTION 
SECO 



CLR 


A 


STA- 


SEC 


LOA* 


SECTOT 


AND- 


CONST 


SAN 


LOOPB0-*-l 


JMP 


SEC1 



SAVE SECTION NO. FOR ERRORS 
SECTIONS TO TEST PARAMETER 
CHECK BIT ZERO. 

GO TO NEXT SECTION IF CLEAR. 



00283 
00284 
00285 
00286 
00287 
O0288 
00289 



0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 

0303 
0304 
0305 
0306 



•SECTION 0, LOOP 

♦ INPUT STATION 0, LEVEL 1 STATUS, EXPECT REPLY. 

* EXPECT READY STATUS (IGNORE PROTECT AND END-OF-FILE STATUS!. 



P0018 EOFA LOOPOO LDQ- 



P0019 
P001A 
P001B 
P001C 
P001D 
P001E 
P001F 
POO 20 
P0021 
P0022 
P0023 
P0024 



0202 
1804 
54EC 
54E0 
18FA 
600F 
A000 
FB7F 
B0 6B 
54EF 
54E8 
18F3 



5O0A 



INP 

JMP* 

RTJ- 

RTJ- 

JMP* 

STA- 

ANO 

EOR- 
RTJ- 
RTJ- 

JMP* 



EQUIP 

2 

SOOA 

(ERR0R4) 

(ERR0R5) 

LOOPDO 

ACT 

=NSFB7F 

CONST 
(ERROR7) 
(IC100) 
LOOPOO 



Q07 THRU Q10 = EQUIPMENT NO., 
QOO - 1, Q01 THRU 006 ~ 0. 
INPUT STATION 0, LEVEL 1 STATUS 
EXPECT REPLY. . . 

ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
SAVE STATUS FOR ERROR MESSAGE 
DROP BITS 7 AND 10 

EXPECT READY STATUS. 
ERROR 7 IF UNEXPECTED STATUS. 
LOOP 100 TIMES AND UNTIL BIT 4 
OF STOP/JUMP WORD IS CLEAR. 



00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 

00303 
00304 
00305 
00306 



0308 
0309 
031G 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 

0320 
0321 

0322 



♦SECTION 0, LOOP 1 



P0025 
P0026 
P0027 
P0028 
P0029 
P002A 
P0023 
P002C 
P002O 
P002E 
P002F 
P0030 
P0031 



EOFA 
00 60 
0202 
1804 
54EC 
54ED 
18F9 
60DF 
AOOO 
F87F 
B06B 
54EF 
54E8 



LOOP01 



S01A 



INPUT STATION 3 STATUS, EXPECT REPLY. 
EXPECT READY STATUS. 



LDQ- 


EQUIP 


INU 


$60 


INP 


2 


JMP* 


S01A 


RTJ- 


IERR0R4) 


RTJ- 


(ERRORS) 


JMP» 


LOOP01 


STA- 


ACT 


ANIJ 


=NSFB7F 


EOR- 


CONST 


RTJ- 


CERR0R7) 


RTJ- 


(IC100) 



EQ. NO., QOO SET. 

SET Q05 AND Q06 (STATION 3). 

INPUT STATION '3 STATUS. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

SAVE STATUS FOR ERROR MESSAGE. 

DROP PROTECT AND EOF BITS. 

EXPECT READY STATUS. 

ERROR 7, UNEXPECTED STATUS. 

INCREMENT LOOP COUNTER. 



00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 

00320 
00 321 
00322 



60271300 
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OATEt IU/04/75 



0323 P0032 18F2 



JMP* 



LOOP01 



LOOP 100 TIMES 



00323 



0325 






♦SECTION 


0, LOOP 


2 


0326 






* 


SELECT ALL FUNCTIONS 


0327 






* 


INTERNAL 


. REJECT. IF 


0328 






* 


BUSY AND 


REPLY-TERMI 


0329 


P0033 


EOFA 


LOOP* 2 


LDQ- 


EQUIP 


0330 


P0034 


0804 




SET 


A 


0331 


PQ035 


0302 




OUT 


2 


0332 


P0036 


54EE 




RTJ- 


(ERR0R6) 


0333 


P0037 


1802 




JMP* 


S02C 


0334 


P0038 


54E0 




RTJ- 


(ERRORS* 


0335 


POO 39 


EOFB 


S02C 


LOQ- 


CHAN 


0336 


P003A 


0151 




SQN 


1 


0337 


P0038 


180B 




JMP* 


S02B 


0338 


P003C 


F0 77 


SO 2 A 


ADQ- 


CONST+12 


0339 


P003O 


02FE 




INP 


-1 


0340 


P003E 


60 OF 




STA- 


ACT 


0341 


P003F 
P0040 


AOOO 
0102 




ANO 


=NSQ102 


0342 


P0041 


00 6C 




EOR- 


CONST+1 


0343 


P0042 


54F7 




RTJ- 


(ERRORF) 


0344 


P0043 


EOFB 


S02A1 


LDO- 


CHAN 


0345 


P0044 


F0 76 




ADQ- 


CONSTH1 


0346 


P00<»5 


02FE 




INP 


-1 


0347 


P0046 


0842 


«502B 


CL* 


Q 


0348 


P0047 


54E6 




RTJ- 


(STATUS) 


0349 


P0048 


BO 60 




EOR- 


CONST 


0350 


P0049 


54EF 




RTJ- 


(ERR0R7) 


0351 


P004A 


54E8 




RTJ- 


(IC100J 


C352 


P004B 


18E7 




JHP* 


LOOP02 


0354 






•SECTION 


0, LOOP 


3 


0355 






* 


SAME AS 


SECTION 0, L 


0356 






* 


ON STATION 3. 


0357 


P004C 


EOFA 


LOOP3 3 


LOQ- 


EQUIP 


0358 


P004D 


0O60 




INQ 


$60 


0359 


P004E 


08G4 




SET 


A 


0360 


P0 04F 


0302 




OUT 


2 


0361 


P0050 


54EE 




RTJ- 


(ERR0R6) 


0362 


P0051 


1802 




JHP* 


S03C 


0363 


P0052 


54E0 




RTJ- 


(ERROR5) 


0364 


P0053 


EOFB 


S03C 


LOQ- 


CHAN 


0365 


P0054 


0151 




SQN - 


1 


0366 


PD055 


180B 




JMP* 


S03B 


0367 


P0056 


F077 


S03A 


AOQ- 


C0NST*12 


0368 


P0057 


02FE 




INP 


-1 


0369 


P005S 


60DF 




STA- 


ACT 


0370 


P0059 
P005A 


AOOO 
0102 




ANO 


=N$0102 




60271300 F 









(ALL BITS IN A) ON STATION 0, EXPECT 
H IS NOT ZERO EXPECT 1706 STATUS TO BE 
NATE BUFFER 

EQ. NO. T QOG SET. 

SET ALL BITS IN A. 

ATTEMPT FUNCTIONS CN STATION 0. 

ERROR 6, REPLY. 

INTERNAL REJECT 

ERROR 5, EXTERNAL REJECT. 

GET W 



SET UP Q TO INPUT BOG STATUS. 
GET BDC STATUS. 
SAVE FOR FRROR MESSAGE. 
CHECK REPLY AND BUSY BITS 

EXPECT BUSY STATUS. 

ERROR F IF UNEXPECTED 80C STATUS 



TERMINATE BUFFER. 

GET STATION STATUS. 
EXPECT READY STATUS. 
ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



LOOP 2 EXCEPT ATTEMPT FUNCTIONS 

EQ. NO., 000 SET. 

SET Qf)5 AND Q06 (STATION 3). 

SET ALL BITS IN A. 

ATTEMPT FUNCTIONS ON STATION 3. 

ERROR 6, REPLY. 

INTERNAL REJECT 

ERROR 5, EXTERNAL REJECT. 

GET W 



SET UP Q TO INPUT BDC STATUS. 
GET BDC STATUS. 
SAVE FOR ERROR MESSAGE. 
CHECK REPLY AND BUSY BITS 



00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 
00340 
00341 

00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 



00354 
00355 
00356 
00357 
00358 
00359 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00368 
00369 
00370 
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J 
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o c 
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PAGE 


13 


0371 


P005B 


Q06C 




EOR- 


CONST+1 


0372 


P005C 


54F7 




RTJ- 


(ERRORF) 


0373 


POO 50 


EOFB 


S03&1 


LDQ- 


CHAN 


037<» 


P005E 


F076 




AOQ- 


CONST+11 


0375 


P005F 


G2FE 




INP 


-1 


0376 


P0060 


0842 


S03B 


CLR 


Q 


0377 


P0061 


54E6 




RTJ- 


(STATUS) 


0378 


P0062 


0068 




EOR- 


CONST 


0379 


P0063 


54EF 




RTJ- 


(ERROR?) 


0360 


P0064 


54E8 




RTJ- 


(IC100) 


0381 


P0065 


18E6 




JMP» 


LOOP(13 


0383 






♦INITIALIZE RFST OF SECTION T 


038«» 


P0 06G 


0C40 




ENQ 


$40 


0335 


P0067 


40 GD 




STQ- 


STATION 


0387 






"SECTION 


0, LOOP <♦ 


0388 






V 


INPUT 


LEVEL 1, STATION 


0389 






* 


EXPECT 


REAOY STATUS. 


0390 


P0068 


EOFA 


LOOP'l*» 


LDQ- 


EQUIP 


0391 


P0069 


FODU 




AOQ- 


STATION 


0392* 


P006A 


0202 




INP 


2 


0393 


P0063 


1804 




JMP* 


S04A 


0394 


P006C 


54EC 




RTJ- 


(ERR0R4) 


0395 


P006D 


54E0 




RTJ- 


(ERROR5) 


C396 


P006E 


18F9 




JMP* 


LOOP04 


0397 


P006F 


600F 


S04A 


STA- 


ACT 


0398 


P0070 
P0071 


A000 
FB7F 




ANO 


=N$FB7F 


0399 


P0072 


BO 68 




EOR- 


CONST 


0400 


P0073 


0FA9 




QL3 


9 


0401 


P0074 


0161 




SOP 


1 


0402 


P0075 


B0 6E 




EOR- 


CONST+3 


0403 


P0076 


54EF 




RTJ- 


(ERROR7) 


0404 


P0077 


54E8 




RTJ- 


(IC100) 


0405 


PQ078 


18EF 




JMP* 


LOOP04 


0407 






♦SECTION 


0, LOOP 5 


0408 






* 


INPUT 


LEVEL 2, STATION 


0409 






* 


EXPECT 


ZERO STATUS. 


0410 


P0079 


EOFA 


LOOP0 5 


LOS- 


EQUIP 


0411 


P007A 


0D02 




ING. 


2 


0412 


P007B 


FOOD 




ADQ- 


STATION 


0413 


P007C 


0202 




INP 


2 


0414 


P007O 


1804 




JMP» 


SO'iA 


0415 


P0Q7E 


54EC 




RTJ- 


(ERR0R4) 


0416 


P007F 


54E0 




RTJ- 


(ERROR?) 


0417 


P0080 


18F8 




JMP* 


LOOP05 



DATE* 01/04/75 



EXPECT BUSY STATUS. 

ERROR F, UNt'XPECTED 30C STATUS. 



TERMINATE BUFFER. 

GET STATION STATUS. 
EXPECT REAOY STATUS. 
ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



TO CHECK STATION ? (PUNCH). 

SET Q06 (STATION 2). 



1 OR 2 STATUS, EXPECT REPLY. 

EQ. NO., Q00 SFT. 

SET STATION NO. BIT. 

INPUT STATION 1 OR 2 STATUS. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

SAVE STATUS FOR FRROR MESSAGE. 

DROP PROTECT AND EOF BITS. 

EXPECT REAOY STATUS. 

CHECK WHETHER STATION 2. 
EXPECT DATA STATUS IF STATION 2. 
ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



1 OR 2 STATUS, EXPECT REPLY. 

EQ. NO., Q00 SET. 
SET Q01 (LEVEL 2). 
SET STATION NO. BIT. 
INPUT LEVEL 2 STATUS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
FRROR 5, EXTERNAL REJECT. 
HANG ON REJ£CT. 



00371 
00372 
00373 
00374 
00375 
00376 
00 377 
00378 
00379 
00380 
00 381 



00383 
00384 
00385 



00387 
00388 
00389 
00390 
00391 
00392 
00393 
00394 
00395 
00396 
00397 
00398 

00399 
00400 
00401 
00402 
00403 
00404 
00405 



00487 
80408 
00409 
00410 
00 411 
00412 
00413 
00414 
00415 
00416 
00417 
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GRPAOD 



PAGE 1* 



DATEt fll/0*/75 



0*18 P0081 60DF 

0*19 P0082 5*F0 

0*20 P0083 5*E8 

0*21 P008* 18F* 



SG5A 



STA- 
RT J- 
R.TJ- 
JHP* 



ACT 

(ERROR8) 
(IC100) 
L00PC5 



SAVE STATUS FOR ERROR MESSAGE. 00*18 

ERROR 8, UNEXPECTED LEVEL 2 STAT 00*19 

INCREMENT LOOP COUNTER. 00*20 

LOOP 100 TIMES. 00*21 



0*23 
0*24 
0*25 
0*26 
0*27 
0*28 
0*29 
0*30 
0*31 
0*32 
0*33 
0*3* 
0*35 
0*36 
0*37 
0*38 
0*39 
0**0 
0**1 
0**2 



P0085 
P0086 
P0087 
P0088 
P0089 
P008A 
P008G 
P008C 
P008D 
P008E 
P008F 
P0090 
P0091 
P0092 
P0093 
P009* 
P0095 



♦SECTION 0, LOOP 6 

* CLEAR CONTROLLER, EXPECT REPLY. 

* GET STATUS, EXPECT READY. 



EOFA 
FOOD 
0A01 
0302 
180* 
5*EC 
5*ED 
18F8 
EOOD 
5*E6 
B0 6B 
0FA9 
0161 
B06E 
5*EF 
5*E8 
18EF 



LOOP06 



S06A 



LDQ- 

AOQ- 

ENA 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP» 

LDQ- 

RTJ- 

EOR- 

QLS 

SQP 

EOR- 

RTJ- 

RTJ- 

JMP* 



EQUIP 

STATION 

1 

2 

S06A 

(ERROR*) 

(ERRORS) 

LOOP06 

STATION 

(STATUS) 

CONST 

9 

1 

CONST+3 

(ERROR7) 

(IC100) 

LOOP06 



EQ. NO., Q00 SET. 

SET STATION NO. 8IT. 

SET A00. 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR *, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

SET STATION NO. BIT. 

GET STATION 1 OR 2 STATUS. 

EXPECT REAOY STATUS. 

CHECK WHETHER STATION 2. 
EXPECT OATA STATUS IF STATION 2, 
ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



00*23 
00*2* 
00*25 
00*26 
00*27 
00*28 
00*29 
00*30 
00*31 
00*32 
00*33 
00*3* 
00*35 
00*36 
00*37 
00*38 
00*39 
00**0 
00**1 
00**2 



0*** 
0**5 
0**6 
0**7 
0**8 
0**9 
0*50 
0*51 
0*52 
0*53 
0*5* 
0*55 
0*56 
0*57 
0*58 
0*59 
0*60 
0*61 
0*62 
0*63 



♦SECTION 0, LOOP 7 

* CLEAR INTERRUPT, EXPECT REPLY. 

• GET STATION 1 OR 2 STATUS, EXPECT READY STATUS. 



P0096 
P0097 
P0098 
P0099 
P009A 
P0098 
P009C 
P009D 
P009E 
P009F 
P00A0 
P00A1 
P00A2 
P00A3 
POOA* 
P00A5 
P00A6 



EOFA 
FODD 
0A02 
0302 
180* 
5*EC 
5*ED 
18F8 
EOOO 
5*E6 
BO 68 
0FA9 
0161 
B06E 
5*EF 
5*E8 
18EF 



LOOPT7 



S(17A 



LOQ- 

AOO- 

ENA 

OUT 

JMP» 

RTJ- 

RTJ- 

JMP* 

LDQ- 

RTJ- 

EOR- 

QL3 

SQP 

EOR- 

RTJ- 

RTJ- 

JMP» 



EQUIP 

STATION 

2 

2 

S07A 

(ERROR*) 

(ERR0R5) 

LOOP07 

STATION 

(STATUS) 

CONST 

9 

1 

CONST+3 

(ERROR7) 

UC100) 

LOOP07 



EQ. NO., Q00 SET. 

SET STATION NO. BIT. 

SET A01. 

CLEAR INTERRUPT. 

EXPECT REPLY. 

ERROR *, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

SET STATION NO. BIT. 

GET STATION 1 OR 2 STATUS. 

EXPECT READY STATUS. 

CHECK WHETHER STATION 2. 
EXPECT DATA STATUS IF STATION 2. 
ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



00*** 
00**5 
00**6 
00**7 
00**8 
00**9 
00*50 
00*51 
00*52 
00*53 
00*5* 
00*55 
00*56 
00*57 
00*58 
00*59 
00*60 
00*61 
00*62 
00*63 



60271300 F 
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DATE* 01/04/75 



0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 

4)493 
0494 
0495 
049* 
0497 
0498 
0499 
0500 
05B1 
0502 
0503 



P00A7 
P00A8 
P00A9 
POOAA 
POOAB 
POOAC 
POOAO 
POOAE 
POOAF 
POOBO 
P00B1 
P00B2 
P00B3 
P00B4 
P00B5 
P00B6 
PO0B7 
P00B8 
P00B9 
POOBA 
POOBB 
POOBC 
POOBD 
POO BE 
POOBF 
POOCO 
P0QC1 
PQ0C2 
P00C3 
P00C4 
P00C5 
P00C6 
P00C7 
POOCB 
P0QC9 
POOCA 
POOCB 



54E9 
54EA 
54EB 
EOFA 
FOOD 
0A04 
0302 
1804 
54EC 
54E0 
18F8 
COOD 
A071 
0102 
54F1 
1802 
54F2 
54F4 
54F6 
EODO 
54E6 
BO 68 
0FA9 
0162 
BOOG 
OOOC 
54EF 
EOFA 
FOOD 
OAOi- 
0302 
1B04 
54EC 
54E0 
18F8 
54E6 
18 OB 



♦SECTION 0, LOOP 8 

* REQUEST DATA INTERRUPT, EX 

* GET STATUS, EXPECT READY S 



LOOP!)* 



S08A 



S08B 



S08C 



S08D 



RTJ- 
RTJ- 
RTJ- 
LOQ- 
AD CI- 
ENA 
OUT 
JMP* 
RTJ- 
RTJ- 
JHP* 
LDA- 
AND- 
SAZ 
RTJ- 
JMP» 
RTJ- 
RTJ- 
RTJ- 
LOQ- 
RTJ- 
EOR- 
QLS 
SQP 
EOR 

RTJ<- 

LOQ- 

ADQ- 

£NA ■•'. 

OUT 

JMP» 

RI J- 

RTJ- 

JMP* 

RTJ- 

JMP* 



(INITDATA) 

(INITEOP) 

(INITALARMJ 

EQUIP 

STATION 

4 

2 

S08B 

(ERRORS) 

(ERRORS) 

S03A 

STATION 

CONST+6 

2 

(ERROR9) 

♦♦2 

(ERRORA) 

(ERRORC) 

(ERRORS) 

STATION 

ISTATUS) 

CONST 

9 

2 

=N$0 00C 

CERR0R7) .. 
EQUIP 
STATION 
1 .. .., ....... 

2 

S08O 

(ERRORS) 

(ERR0R5) 

S08C 

(IC1Q0) 

LOOP08 



PECT REPLY. EXPECT NO INTERRUPT. 
TATUS. CLEAR CONTROLLERS EXPECT REPLY 

INITIALIZE DATA INTERRUPT. 

INITIALIZE EOP INTERRUPT. 

INITIALIZE ALARM INTERRUPT. 

EQ. NO., Q00 SET. 

SET STATION NO. BIT. 

SET A02. 

DATA INTERRUPT REQUEST. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

CHECK WHETHER STATION 2. 

EXPECT NO DATA INTERRUPT IF NOT. 

ERROR 9, NO DATA INTERRUPT. 

ERROR A, UNEXPECTED DATA INT. 
ERROR C IF EOP INTERRUPT. 
ERROR E IF ALARM INTERRUPT. 
SET STATION NO. BIT. 
GET STATION 1 OR 2 STATUS. 
EXPECT READY STATUS. 

- SKIP IF NOT STATION 2. 

EXPECT DATA, INTERRUPT STATUS. 

ERROR 7, UNEXPECTED STATUS. 
EQ. NO., Q00 SET. 
SET STATION NO. BIT. 

SET AOO. 

CLEAR CONTROLLER. 
EXPECT REPLY. 

.... ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



00465 
00466 
00467 
00468 
00469 
00470 
00«»71 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
00479 
00480 
00481 
00482 
00483 
00484 
00405 
00486 
00467 
00488 
00489 
00490 
00491 
00492 

00493 
00494 
00495 
00496 
00497 
00498 
00499 
00500 
00501 
00502 
00503 



0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 



POOCC 

poocd 

POOCE 
POOCF 
P00OQ. 
P00D1 
P00D2 



54EA 

54E9. 

54EB 

EOFA 

FOOD 

0A08 

0302 



'SECTION 0, LOOP 9 

*-'■ REQUEST EOP INTERRUPT, EXPECT REPLY. EXPECT NO INTERRUPT. 

* GET STATUS, EXPECT READY. CLEAR CONTROLLER, EXPECT REPLY. 



LOOPC 9 



S09A 



RTJ- 

RTJ- 

RTJ- 

LDQ- 

ADQ- 

ENA 

OUT 



(INITEOP) 

(INITOATA1 

(INITALARM) 

EQUIP 

STATION 

8 

2 



INITIALIZE EOP INTERRUPT. 

INITIALIZE DATA INTERRUPT. 

INITIALIZE ALARM INTERRUPT. 

EQ. NO., Q00 SET. 

SET STATION NO. BIT. 

SET A03. 

REQUEST INTERRUPT ON EOP. 



00505 
00506 
00507 
0050S 
00509 
00510 
00511 
00512 
00513 
00514 



60271300 F 
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L6 DA 


0515 P00D3 1801* 




JMP* 


S098 


0516 POOD** 54EC 




RTJ- 


(ERR0R4) 


0517 P00D5 54ED 




RTJ- 


(ERR0R5) 


0518 P00O6 18F8 




JMP» 


S09A 


0519 P00O7 54F4 


SC9B 


RTJ- 


(ERRORC) 


0520 P00D8 54F2 




RTJ- 


(ERRORA) 


0521 P00D9 54F6 




RTJ- 


CERRORE) 


0522 POOOA EODO 




LDO- 


STATION 


0523 P00D8 54E6 




RTJ- 


{STATUS) 


0524 POOOC B068 




EOR- 


CONST 


0525 POODO 0FA9 




QLS 


9 


0526 POODE 0161 




SQP 


1 


0527 POOOF 806E 




EOR- 


CONST+3 


0528 POQEO 54EF 




RTJ- 


(ERR0R7) 


0529 POOEl EOFA 


SP9C 


LDQ- 


EQUIP 


0530 P00E2 FOOD 




ADQ- 


STATION 


0531 P00E3 0A01 




ENA 


1 


0532 P00E4 0302 




OUT 


2 


0533 P00E5 1804 




JMP* 


S09D 


0534 P00E6 54EC 




RTJ- 


CERR0R4) 


0535 P00E7 54E0 




RTJ- 


< ERRORS) 


0536 P00E8 18F8 




JMP» 


S09C 


0537 P0OE9 54E8 


S09D 


RTJ- 


CIC100) 


0538 POOEA 18E1 




JMP* 


LOOP09 


0540 


♦SECTION 


0, LOOP 


10 


0541 


* 


REQUEST 


ALARM INTERRUPT, 


0542 


* 


GET STATUS* EXPECT REAOY. 


0543 P00E8 54E8 


LOOPTA 


RTJ- 


(INITALARM) 


0544 POOEC 54E9 




RT J- 


(INITOATA) 


0545 POOED 54EA 




RTJ- 


(INITEOP) 


051*6 POOEE EOFA 


SOAA 


LUQ- 


EQUIP 


0547 POOEF FOOD 




ADQ- 


STATION 


0548 POOFO 0A10 




ENA 


S10 


05<»9 POOFl 0302 




OUT 


2 


0550 P00F2 1804 




JMP» 


SOAB 


0551 P00F3 54£C 




RTJ- 


(ERR0R4) 


0552 P00F4 54E0 




RTJ- 


(ERRORS) 


0553 POOFS 18F8 




JMP» 


SOAA 


0554 P00F6 54F6 


SOAB 


RTJ- 


(ERRORE) 


0555 P00F7 54F2 




RT.I- 


(ERRORA) 


0556 P00F8 54F4 




RTJ- 


(ERRORC) 


0557 P00F9 EOOO 




LOQ- 


STATION 


0558 POOFA 54E6 




RTJ- 


(STATUS) 


0559 P00F8 B06Q 




EOR- 


CONST 


0560 POOFC 0FA9 




QLS 


9 


0561 POOFO 0161 




SQP 


1 


0562 PQOFE B06E 




EOR- 


C0NST*3 


0563 POOFF 54EF 




RTJ- 


(ERR0R7) 


'3564 P0100 EOFA 


SCAC 


LOQ- 


EQUIP 


0565 P0101 FODO 




ado- 


STATION 



DATEI 01/04/75 



EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5* EXTERNAL REJECT. 

HANG ON REJECT. 

ERROR C IF EOP INTERRUPT. 

ERROR A IF DATA INTERRUPT. 

ERROR E IF ALARM INTERRUPT. 

SET STATION NO. BIT. 

GET STATION 1 OR 2 STATUS. 

EXPECT REAOY STATUS. 

CHECK WHETHER STATION 2. 

EXPECT DATA STATUS IF STATION 2, 

ERROR 7, UNEXPECTED STATUS. 

EQ. NO. f QOO SET. 

SET STATION NO. BIT. 

SET A00. 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR 4t INTERNAL REJECT 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

INCREMENT LOOP COUNTER. 

LOOP 100 TIMES. 



EXPECT REPLY. EXPECT NO INTERRUPT. 
CLEAR CONTROLLER, EXPECT REPLY. 
INITIALIZE ALARM INTERRUPT. 
INITIALIZE DATA INTERRUPT. 
INITIALIZE EOP INTERRUPT. 
EQ. NO. QOO SET. 
SET STATION NO. BIT. 
SET A04. 

REQUEST INTERRUPT ON ALARM. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 

ERROR E, UNEXPECTED ALARM INT. 
ERROR A IF DATA INTERRUPT. 
ERROR C IF EOP INTERRUPT. 
SET STATION NO. BIT. 
GET STATION 1 OR 2 STATUS. 
EXPECT REAOY STATUS. 

CHECK WHETHER STATION 2. 
EXPECT DATA STATUS IF STATION 2. 
ERROR 7, UNEXPECTED STATUS. 
EQ. NO., QOO SET. 
SET STATION NO. BIT. 



00S15 
00516 
08517 
00518 
00519 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00528 
00529 
00530 
00531 
00532 
00533 
00 534 
00535 
00536 
00537 
00538 



00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00548 
00549 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00558 
00559 
00560 
00561 
00562 
00 563 
00564 
00565 
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PAGE i 


L7 DATE! 


01/OV/75 




0566 P0102 0A01 




ENA 


1 


SET A00. 


00566 


0567 P0103 0302 




OUT 


2 


CLEAR CONTROLLER. 


00567 


0568 P010V 180V 




JMP* 


SOAD 


EXPECT REPLY. 


00568 


0569 P010 5 5VF.C 




RTJ- 


(ERRORS) 


ERROR V, INTERNAL REJECT. 


00569 


0570 P0106 5VED 




RTJ- 


(ERRORS) 


ERROR 5, EXTERNAL REJECT. 


00570 


0571 P0107 18F8 




JMP* 


SOAC 


HANG ON REJECT. 


00571 


0572 P0108 5VE8 


SOAO 


RTJ- 


(IC100) 


INCREMENT LOOP COUNT. 


00572 


0573 PQ109 18E1 




JHP^ 


LOOPOA 


LOOP 100 TIMES. 


00573 


0575 


♦SECTION 


0, LOOP 


11 




00575 


0576 


* 


REQUEST 


OFFSET, EXPECT REPLY. 




00576 


0577 


» 


GET STATUS, EXPECT READY. 




00577 


0578 P010A EOFA 


LOOPOB 


LDQ- 


EQUIP 


EQ. NO., Q00 SET. 


00578 


0579 P010B FOOO 




ADQ- 


STATION 


SET STATION NO. BIT. 


00579 


0580 P010C C073 




LOA- 


C0NST*8 


SET A08. 


00580 


0581 P010D 0302 




OUT 


.2 


OFFSET. 


00581 


0562 POlflE 180V 




JHP^ 


SOBA 


EXPECT REPLY. 


00582 


0583 P010F 5VEC 


* 


RTJ- 


(ERRORV) 


ERROR V, INTERNAL REJECT. 


00583 


-- 058V POliO 5VE0 




RTJ- 


1 ERRORS) 


ERROR 5, EXTERNAL REJECT. 


00 58V 


0585 P0111 18F8 




JMP^ 


LOOPOB 


HANG ON REJECT. 


00585 


0586 P0112 EOOO 


SOBA 


LOQ- 


STATION 


SET STATION NO. BIT. 


00586 


0587 P0113 5VE6 




RT J- 


(STATUS) 


GET STATION 1 OR 2 STATUS. 


00567 


0588 PQ11V B06B 




EOR- 


CONST 


EXPECT READY STATUS. 


00586 


0589 P0115 0FA9 


■-■■ 


QLS 


9 




08589 


... 0590 PO 116 0161 




•SQP 


1 - '•■' 


CHECK WHETHER STATION 2. 


00590 


0591 P0117 B06E 




EOR- 


C0NST*3 


EXPECT DATA STATUS IF STATION 2. 


00591 


0592 P0118 5VEF 




RTJ- 


(ERR0R7) 


ERROR 7, UNEXPECTED STATUS. 


00592 


-.- 0593 P0U9 5VE6 


. . . . „ 


RTJ- 


(IC100) 


INCREMENT LOOP COUNT. 


00593 


059* P011A 18EF 




JMP^ 


LOOPOB 


LOOP 100 TIMES. 


0859V 


0596 


♦SECTION 


0* LOOP 


12 




08596 


-4)597 


;,¥ _ ._. _ 


SELECT i 


»LL -UNDEFINED . FUNCTIONS, EXPECT REPLY. 


60597 


0598 


»'■ 


GET STATUS, EXPECT READY. 




00394 


0599 POtlB EOFA 


LOOPOC 


LOQ- 


EQUIP 


EQ. NO., QflO SET 


00599 


06-00 P011C FOOD 


...:.. .„.'.■._.„. . 


AOQ* 


STATION 


SET STATION NO. BIT. 


00600 


0601 P0110 COOO 




LDA 


=N$FE60 


SET A05,A06,A09 THRU A15. 


00601 


P011E FE60 












. .:_ J602 R011F 0302 




OUT 


.. 2 , 


SELECT ALL UNQEFINEO FUNCTIONS. 


.00662 


0603 P0120 180V 




JHP^ 


SOCA 


EXPECT REPLY. 


00603 


060V P0121 5VEC 




RTJ- 


(ERRORV) 


ERROR V, INTERNAL REJECT. 


0060V 


... 0605 P0122 5VE0 


. ..'.... .. . ' ... 


RTJ-« 


(ERRORS* . ... 


ERROR 5, EXTERNAL REJECT. 


00605 


0606 P0123 18F7 




JHP* 


LOOPOC 


HANG ON REJECT. 


00606 


0607 P012V EOOO 


SOCA 


LOQ- 


STATION 


SET STATION NO. BIT. 


00607 


0608 P0125 5VE6-. 


... ... 4 . 


. RT J- 


... (STATUS) 


GET STATION 1 OR 2 STATUS.- 


-00606 


0609 P8126 B06B 




EOR- 


.CONST 


EXPECT READY STATUS. 


00609 


0610 P0127 0FA9 




QLS" 


9 




00610 


-0641 P0128 4J161- 


... _.'.... .' 


SQP - 


-. 1 ■ : 


CHECK WHETHER STATION 2.- 


40611 


0612 P0129 B06E 




EOR- 


CONST+3 


EXPECT DATA STATUS IF STATION 2. 


00612 


0613 P012A 5VEF 




RTJ- 


(ERR0R7) 


ERROR 7, UNEXPECTED STATUS. 


00613 



L,J 



60271300 F 
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DATE* 01/04/75 



0614 P012B 54E8 

0615 P012C 18EE 



RTJ- 
JMP* 



IICIOO) 
LOOPOC 



INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



00614 
00615 



0617 
0618 
0619 
0628 
0621 
0622 
0623 
0624 
0625 
0626 

0627 

0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
06<»2 
0643 
0644 

0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 



P012O 
P012E 
P012F 
P0130 
P0131 
P0132 
P0133 
P0134 
P0135 
P0136 
P0137 
P0138 
P0139 
P013A 
P013B 
P013C 
P0130 
P013E 
P013F 
P0140 
P0141 
P0142 
P0143 
P0144 
P0145 
P0146 
PQ147 
P0148 
P0149 
P014A 
P014B 
P014C 
P0140 
P014E 
P014F 
P0150 
P0151 



54E9 
54EA 
54EB 
EOFA 
FODO 
COOO 
FF7F 
0302 
1804 
54EC 
54E0 
18F7 
0FA9 
0162 
54F1 
1802 
54F2 
54F4 
54F6 
EOOO 
54E6 
BO 68 
0FA9 
0162 
B000 
000C 
54EF 
EOFA 
FOOD 
0A01 
0302 
1804 
54 EC 
54ED 
18F8 
54E8 
180B 



♦SECTION 0* LOOP 13 

* SELECT ALL FUNCTIONS EXCEPT FEED, EXPECT REPLY. 

* EXPECT NO INTERRUPT. GET STATUS, EXPECT REAOY. 

* CLEAR CONTROLLER, EXPECT REPLY. 

LOOPOD RTJ- CINITDATA) INITIALIZE DATA INTERRUPT. 

RTJ- <INITEOP> INITIALIZE EOP INTERRUPT. 

RTJ- tINITALARM) INITIALIZE ALARM INTERRUPT. 

SOOA LOQ- EQUIP EQ. NO. , Q00 SET. 

AOQ* STATION SET STATION NO. BIT. 

LOA »N$FF7F SET ALL BITS EXCEPT A07. 



SODB 



SO DC 



SOOO 



OUT 

JMP» 

RTJ- 

RTJ- 

JMP» 

QLS 

SQP 

RTJ- 

JMP* 

RTJ- 

RTJ- 

RTJ- 

LDQ- 

RTJ- 

EOR- 

QLS 

SOP 

EOR 

RTJ- 

LOQ- 

ADQ- 

ENA 

OUT 

JMP» 

RTJ- 

RTJ- 

JMP» 

RTJ- 

JMP* 



2 

SODB 

IERROR4) 

(ERRORS) 

SODA 

9 

2 

CERR0R9) 

♦♦2 

IERR0RA) 

tERRORCI 

(ERRORE) 

STATION 

ISTATUS) 

CONST 

9 

2 

=N$000C 

(ERROR7) 

EQUIP 

STATION 

1 ■■ ■ 

2 

SODO 

(ERROR4) 

(ERR0R5) 

SODC 

MCIOOI 

LOOPOD 



ALL FUNCTIONS EXCEPT FEED. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 

CHECK WHETHER STATION 2. 
ERROR 9 IF NO DATA INTERRUPT. 

ERROR A IF DATA INTERRUPT. 
ERROR C, UNEXPECTED EOP INT « 
ERROR E, ALARM INTERRUPT. 
SET STATION NO. BIT. 
GET STATION 1 OR 2 STATUS. 
EXPECT REAOY STATUS. 



CHECK WHETHER STATION 2. 
EXPECT DATA, INTERRUPT STATUS. 

ERROR 7, UNEXPECTED STATUS. 

EQ. NO., QOO SET. 

SET STATION NO. BIT. 

SET AOO* 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

INCREMENT LOOP COUNTER. 

LOOP 100 TIMES. 



00617 
00618 
00619 
00620 
00621 
00622 
00623 
00624 
00625 
00626 

00627 
00628 
00629 
00630 
00631 
00632 
00633 
09634 
00635 
00636 
00637 
00638 
00639 
00640 
00641 
00642 
00643 
00644 

00645 
00646 
00647 
00448 
00649 
00650 
00651 
00652 
00653 
00654 
00655 



0657 P0152 CODD 

0658 P0153 A071 

0659 P0154 011D 



LOA- 
AND- 
SAN" 



STATION 
CONST+6 
SEC0A-»-l 



CHECK WHETHER STATION 2. 
SKIP LOOP 14 IF STATION 2, 



00657 
00658 
00659 
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OATEI 01/04/75 



0661 
0662 
0663 
066<t 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 



P0155 
P0156 
P0157 
P0158 
P0159 
P015A 
P015O 
P015C 
P0150 
P015E 
P015F 
P0160 
P0161 



EOFA 
ODFE 
FOOD 
0202 
5i»EE 
54EC 
OBOO 
FUOO 
5<»£6 
U0 6B 
5*»EF 
5<»£8 
18F3 



♦SECTION 0* LOOP 14 

• ATTEMPT DATA INPUT, EXPECT EXTERNAL REJECT. 

* GET STATUS, EXPECT READY. 



LOOPiH 



L DO- 
ING 
AOQ- 
INP 
RTJ- 
RTJ- 
NOP 
LUQ- 
PTJ- 
EOP- 
RTJ- 
PTJ- 
JMP* 



EQUIP 

-1 

STATION 

2 

<ERR0R6> 

(ERRORS) 



STATION 

(STATUS) 

CONST 

<ERROR7) 

<IC100> 

LOOPOE 



EQ. NO., Q00 SLT. 

CLEAR Q00. 

SET STATION NO. BIT. 

ATTEMPT OAT0 INPUT. 

ERROK 6, UNEXPECTED RFPLY. 

ERROR 4, INTERNAL REJECT. 

EXPECT EXTERNAL REJECT. 

SET STATION NO. BIT. 

GET STATION 1 OR. Z STATUS. 

EXPECT READY STATUS. 

ERROS 7, UNFXPECTED STATUS. 

INCREMENT LOOP COUNTER. 

LOOP 100 TIMES. 



00661 
00662 
00663 
0066 k 
00665 
00666 
00667 
00668 
00669 
00670 
00671 
00672 
00673 
00671* 
00675 
00676 



0678 
0679 

0680 
0681 
0682 
0683 
0684 
0685 
0686 



P0162 
P0163 
P0164 
P0165 
P0166 
P0167 
P0168 
P0169 
P016A 
P016B 



5900 
0618 
1804 
CUF9 
0105 
180F 
COF9 
0112 
1800 
FEA5 



"END OF SECTION 
SEGOA RTJ 



SF.COR. 



ENOSFC 



JMP* 


SEC03 


LOA- 


SEC 


SAZ 


SECi-*-l 


JMP* 


SEC2 


LOA- 


SEC 


SAN 


SECi-*-l 


JMP 


SECO 



ENO-OF-SECTION STOP. 

REPEAT SECTION. 
GO TO NEXT SECTION 



00678 
00679 

00680 
00681 
00682 
00683 
006S<» 
00665 
00686 



60271300 F 
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DATE! 01/04/75 



0688 
0689 
0690 



♦SECTION 1 - READER S'TATIC' CHECK 00689 

♦illlllillilliillllilillilllllillililliilllliiilllliilillllillillliiilll 00690 



0692 
0693 

069<> 
0695 
0696 
0697 
0698 
0699 
0700 



PD16C 
P016D 
P016E 
P016F 
P017D 
P0171 
P0172 
P0173 
P017«» 
P0175 



CS00 
FE99 
A0 6C 
0106 
0C20 
«»QDO 
0A01 
60F9 
1800 
FEF2 



•INITIALIZE SECTION 1 
SEC1 LDA SECTOT 



AND- 


CONST+1 


SAZ 


SEC2-»-i 


ENQ 


$20 


STQ- 


STATION 


ENA 


1 


STA- 


SEC 


JMP 


LOOPOt 



GET SECTION PARAMETER. 

CHECK FOR BIT 1, 

GO TO SECTION 2 IF NOT SET. 

SET Q05 t STATION 11. 



SAVE SECTION NO. FOR ERRORS* 
GO TO SECTION 0, LOOP k. 



00692 
00693 

00694 
00695 
00696 
00697 
00698 
00699 
00700 
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DATEI 01/0^/75 



D702 
0703 
0704 



ft*********************************************** *******«*«*¥«* *«**«**** 00702 
♦SECTION 2 -PUNCH FEED, INTERRUPT 00703 

♦22222222222222222222222222222222222222222222222222222222222222222222222 00704 



0706 






0707 


P0176 


C800 




P0177 


FE8F 


0708 


P0178 


A06O 


0709 


P0179 


0112 


0710 


P017A 


1800 




P017B 


0089 


0711 


P017C 


0A02 


0712 


P017O 


60F9 


0713 


P017E 


0C40 


0714 


P017F 


400D 



♦INITIALIZE SECTION 2 
SEC2 LDA SECTOT 



ANO- 

SAN 

JMP 

ENA 
STA- 
ENQ 
STG- 



CONST+2 
2 

SEC3 

2 

SEC 

S40 

STATION 



GET SECTION PARAMETER. 

CHECK FOR BIT 2. 

GO TO NEXT SECTION IF NOT SET. 



SAVE SECTION NO. FOR ERRORS. 
SET Q06 (STATION 2). 



01)706 
00707 

00708 
00709 
00710 

00711 
00712 
00713 
00714 



0716 
0717 
0718 
J719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
3727 
0728 
0729 
0730 
0731 
732 
0733 
0734 
735 

0736 

0737 
738 

0739 

0740 
0741 
0742 
0743 
0744 
745 



P0180 
P0181 
P0182 
P0183 

poi8<» 

P0185 
P0186 
P0187 
P0163 
P0189 
P018A 
PG18B 
P018C 
PQ180 
P018E 
P018F 



CAAF 
60D7 
5800 
0719 
58 
C96E 
EOFA 
GD40 
C000 
009F 
0302 

iao4 

54EC 
54* 
18F7 



♦SECTION 2, LOOP 

* SELECT FEED AND ALL INTERRUPTS, EXPECT REPLY. 

* WAIT 120 MILLISECONDS MAX FOR COLUMN 1 DATA STATUS. 

* EXPECT STATUS TO BE OATA, INTERRUPT, DUSY, REAOY. 

* EXPECT DATA INTERRUPT. 

* OUTPUT DATA (ZEROS), EXPECT REPLY. 

* GET STATUS, EXPECT BUSY AND READY. 

» LOOP FOR COLUMNS 2 THRU 80 WITH 6 MILLISECONDS MAXIMUM WAIT 

* BETWEEN COLUMNS. 

* WAIT 6 MSECS MAX FOP. EOP STATUS. 

* EXPECT STATUS TO BE EOP, INTERRUPT, READY. 

* EXPECT EOP INTERRUPT. 

* EXPECT NO ALARM INTERRUPT. 

* CLEAR INTERRUPTS, EXPECT REPLY. 

* GET STATUS, EXPECT EOP AND READY. 

* CLEAR CONTROLLER, EXPECT REPLY. 

* GET STATUS, EXPECT EOP AND READY. 
LOOP?0 ENA -8 

STA- COLUMN INITIALIZE COLUMN COUNTER. 

RTJ OLYPAR DELAY 



SPG A 



RTJ 



MOTOP 



S?UB 



LDQ- 


EQUIP 


INQ 


3*0 


LDA 


=N?0C9F 


OUT 


2 


JMP* 


S20B 


RTJ- 


(ERRORS) 


RTJ- 


(ERROR'S) 


JMP* 


S20A 


CLR 


A 



FEED A CARD TO START MOTOR. 

EQ. NO. , Q00 SET. 
SET Q06 (STATION 2). 
SET A07, AQi* THRU AOO. 

FEED, CLEAR, ALL INTERRUPTS. 
EXPFCT REPLY. 
ERROR <«, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 



00716 
00717 
00718 
00719 
00720 
00721 
00722 
00723 
00 724 
00725 
00726 
00727 
0728 
00729 
00730 
00731 
00732 
00733 
00 73<» 
00 735 

00736 

00737 
00738 
00739 

00740 
00741 
00742 
00743 
0744 
00745 
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CRPA0O 


PAGE 


22 


0746 


P0190 6006 


STA- 


TIME 


0747 


P0191 54EA 


RTJ- 


(INITEOPI 


0748 


P0192 0C40 S20C 


ENQ 


$40 


0749 


P0193 54E6 


RTJ- 


(STATUS) 


0750 


P0194 E007 


LOQ- 


COLUMN 


0751 


P0195 0O50 


INQ 


80 


0752 


P0196 0143 


SQZ 


3 


0753 


P0197 8000 
P0198 0003 


EOR 


-N$0003 


0754 


P0199 54EF 


RTJ- 


(ERR0R7) 


0755 


P019A 54E9 


RTJ- 


(INITOATA) 


0756 


P0198 54E8 


RTJ- 


(INITALARM) 


0757 


P019C 54E5 S20D 


P.TJ- 


(SMM) 


0758 


P0190 5800 
P019E 0720 


RTJ 


MILLI 


0759 


P019F D006 


RAO- 


TIME 


0760 


P01A0 0C4O 


ENO 


$40 


0761 


P01A1 54E6 


RTJ- 


<STATUS> 


0762 


P01A2 E007 


LDQ- 


COLUMN 


0763 


P01A3 015A 


SQN 


S20F-*-i 


0764 


P01A4 0FC8 


ALS 


11 


0765 


P01A5 0133 


SAM 


S20E-»-l 


0766 


P01A6 E0D6 


LOQ- 


TIME 


0767 


P01A7 0141 


SQZ 


1 


0768 


P01A8 18F3 


JMP* 


S20D 


0769 


P01A9 0FC5 S20E 


ALS 


5 


0770 


P01AA BOOO 
P01AS 0015 


EOR 


=N$0D15 


0771 


P01AC 54EF 


RTJ- 


(ERR0R7) 


0772 


P01AO 1825 


JMP» 


S20I 


0773 


P01AE OFCC S20F 


ALS 


12 


0774 


P01AF 0133 


SAM 


S20G-*-l 


0775 


P01B0 E0D6 


LDQ- 


TIME 


0776 


P0181 0141 


SQZ 


1 


777 


P01B2 18E9 


JMP* 


S20O 


0778 


P0183 0FC4 S20G 


ALS 


4 


0779 


P018<t ROOO 
P0185 OOOO 


EOR 


=N$0000 


0780 


P01B6 E0D7 


ldq- 


COLUMN 


0781 


P01B7 0050 


INQ 


80 


0782 


P01B8 0141 


SQZ 


1 


0783 


P01B9 806C 


EOR- 


CONST+1 


0784 


P01BA 54EF 


RTJ- 


(ERR0R7) 


0785 


P01BB 0007 


RA0- 


COLUMN 


0786 


P018CC056 


LDA- 


SMMPAR 


0787 


P01BO 0F42 


ARS 


2 


0788 


P018E 0C03 


ENQ 


3 


0789 


P01BF 08B2 


LAQ 


Q 


**«***(jQ ********** 






******£L********** 






0790 


POiCi) C200 


LDA* 


COLTIM,Q 


0791 


P01C1 60D6 


STA- 


TIME 


0792 


P01C2 54F1 


RT J - 


(ERR0R9) 



OATEI Q 1/04/75 



INITIALIZE TIME COUNTER. 
INITIALIZE EOP INTERRUPT. 
SET Q06 I STATION 2». 
GET STATION 2 STATUS. 



SKIP IF COLUMN 1. 
EXPECT BUSY ANO REAOY. 

ERROR 7 IF UNEXPECTED STATUS. 
INITIALIZE DATA INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR ANO BACK. 
DELAY ONE MILLISECOND. 

INCREMENT TIME COUNTER. 
SET Q06 I STATION 21. 
GET STATION 2 STATUS. 

SKIP IF NOT COLUMN 81. 

SKIP IF EOP STATUS. 

SKIP IF MAX TIME ALLOWABLE. 

WAIT. 

SHIFT STATUS INTO POSITION. 

EXPECT EOP, INTERRUPT, READY. 

ERROR 7 IF UNEXPECTED STATUS. 



SKIP IF DATA STATUS. 

SKIP IF MAX TIME ALLOWABLE. 

WAIT. 

SHIFT STATUS INTO POSITION. 

EXPECT DATA, INTERRUPT, BUSY. 



EXPECT BUSY UNLESS COLUMN 1. 
ERROR 7 IF UNEXPECTED STATUS. 



INITIALIZE TIME COUNTER. 
ERROR 9, NO DATA INTERRUPT. 



00746 
00747 
00746 
00749 
00750 
00751 
00752 
00753 

00754 
00755 
00756 
00757 
00758 

00759 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00766 
00769 
00770 

00771 
00772 
00773 
00774 
00775 
00 776 
00777 
00778 
00779 

00760 
00781 
00782 
00783 
00784 
00785 
80786 
00787 
00788 
00769 



00790 
00791 
00792 
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r 



o c 



o 





CRPAOD 


0793 


P01C3 


EOOC 


0794 


P01C4. 


0145 


0795 


P01C5 


54F6 


0796 


P01C6 


C0 7A 


0797 


P01C7 


5406 


0798 


P01C8 


1826 


0799 


P01C9 


18 B6 


0800 


P01CA 


EOFA 


0801 


P01GB 


0O3F 


0802 


P01CC 


0844 


0803 


P01CO 


0302 


0804 


PQ1CE 


18G3 


0805 


P01CF 


54 EC 


0806 


PQ 100 


54ED 


0807 


P01D1 


18F3 


0808 


P01D2 


54F3 


0809 


P01O3 


54F6 


0810 


P01D4 


EOFA 


0811 


P0105 


0040 


0812 


P01OO 


0A02 


0813 


P01O7 


0302 


0814 


P01D8 


1804 


0815 


P01D9 


54 EC 


0816 


P01DA 


54E0 


0817 


P01DD 


18F8 


0818 


P01DC 


0C40 


0819 


P01DO 


54E6 


0820 


PQiDE 


BOOO 




P01DF 


0011 


0821 


P01E0 


54EF 


0822 


P01E1 


EOFA 


0823 


P01E2 


G0«»0 


0824 


P01E3 


0A01 


0825 


P01E4 


0302 


0826 


P01E5 


18U4 


0827 


P01E6 


54EC 


0828 


P01E7 


54^0 


0829 


P01E8 


1RF8 


0830 


P01E9 


0C40 


0831 


P01EA 


54E6 


0832 


POlEfl 


13000 




P01EC 


0011 


833 


P01EU 


54EF 


0834 


P01EE 


54E8 


0835 


P01FF 


1890 


836 


P01FO 


5800 




P01F1 


08 4F 


0837 


P01F2 


FFEE 


0838 


P01F3 


FFF4 


0839 


P01F4 


FFEA 


0840 


P01F5 


FFOF 



S2 0G4 



S20H 



S20I 



S20J 



;20K 



S2 0L 



S2 0M 



S2QN 



PAGE 



LDO- 

SQZ 

RTJ- 

LOA- 

RTJ- 

JMP» 

JHP* 

Lnq- 

INQ 

CLP 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP» 

RTJ- 

RT.J- 

LOQ- 

INO 

ENA 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP» 

ENQ 

RTJ- 

FOR 

RTJ- 

LDQ- 

INQ 

ENA 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP* 

ENQ 

ptj- 

EO* 

F.TJ- 
RTJ- 
JMP* 
RTJ 

NUM 
NUM 
NUM 
NUM 



ALAIF 

S20H-*-l 

(ERRORE) 

CONST+15 

(JUMP) 

S20N 

LOOP20 

EQUIP 

$3F 

A 

2 

S20C 

(ERR0R4J 

(ERRORS) 

S20GA 

(ERRORB) 

CERRORF) 

EQUIP 

$40 

2 

2 

S20K 

(ERR0R4) 

(ERR0R5) 

S20J 

$40 

(STATUS) 

=N$0011 

(ERR0R7) 

EQUIP 

$40 

1 

2 

S20M 

(EP>R0R41 

(ERR0R5) 

S20L 

$40 

(STATUS) 

=N'40nil 

(ERR0R7) 
(IC100) 
LOOP20 
OFFSET 

-17 
-11 
-21 
-3? 



0ATE1 01/04/75 



00793 

SKIP IF NO ALARM INTERRUPT. 00794 

ERROR E IF ALARM INTERRUPT. 00795 

00796 

CHECK STOP/JUMP BIT 15. 00797 

EXIT LOOP IF SET. 00798 

FEED CARD AGAIN. 00799 

EQ. NO. , QOO SET. 00800 
CLEAR 000, SET Q06 (STATION 2). 00801 

DATA - (1000. 00802 

OUTPUT UATA. 00803 

EXPECT REPLY. LOOP. 00804 

ERROR 4, INTERNAL REJECT. 00805 

ERROR 5, EXTERNAL REJECT. 00806 

FEED CARO AGAIN IF REJECT. 00807 

ERROR B IF NO EOP INTERRUPT. 00808 

ERROR E IF ALARM INTERRUPT. 00809 

EQ. NO., QOG SET. 00810 

SET Q06 (STATION 2). 00811 

SET A01. 00812 

CLEAR INTERRUPTS. 03813 

EXPECT REPLY, 00814 

ERROR 4, INTERNAL REJECT. 00815 

ERROR 5, EXTERNAL REJECT. 00816 

HANG ON REJECT. 00817 

SET Q06 (STATION 2). 00818 

GET STATION 2 STATUS. 00819 

EXPECT EOP AND READY. 00820 

ERROR 7, UNEXPECTED STATUS. 00821 

EQ. NO., QOC SET. 00822 

SET Q06 (STATION 2). 00823 

SET A00. 00824 

CLEAR CONTROLLER. 00825 

f.XPEGT REPLY. 00826 

ERROR 4, INTERNAL REJECT. 00827 

ERROR 5, EXTERNAL REJECT. 00828 

HANG ON REJECT. 00829 

SET Q06 (STATION 2). 00830 

GET STATION 2 STATUS. 00831 

EXPECT EOP AND READY. 00832 

ERROR 7, UNLXPECTEO STATUS. 00833 

INCREMENT LOOP COUNTER. 00834 

LOOP 100 TIMES. 00835 

OFFSET LAST CARO. 00836 

17.14/14 00837 

1774 00838 

1784-900 00839 

173t»-60n PTC2 00840 
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CRPA0O 




PAGE 


Zi* 


08<»2 






•END OF 


SECTION 


2 


0843 


P01F6 


EOFA 


SEC2A 


LDQ- 


EQUIP 


08*»4 


P01F7 


0040 




INQ 


$h0 


D8k5 


P01F8 


0A01 




ENA 


1 


0846 


P01F9 


0302 




OUT 


2 


0847 


P01FA 


1804 




JMP* 


SEC2B 


0848 


P01F8 


54 EC 




RTJ- 


(ERRORS) 


0849 


P01FC 


54 ED 




RTJ- 


C ERROR 5! 


0850 


P01FO 


18F8 




JMP» 


SEC2A 


0851 


POIFE 
POIFF 


5800 
057C 


SEC2B 


RTJ 


ENDSEC 


0852 


P0200 


1802 




JMP* 


♦♦2 


0853 


P0201 


1803 




JMP* 


SEC3 


0654 


P0202 
P0203 


1800 
FF72 




JMP 


SEC2 



OATEI 01/04/75 



EQ. NO., Q00 SET. 

SET Q06 (STATION 2). 

SET A00. 

CLEA* CONTROLLER. 

EXPECT REPLY. 

ERROR *t, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

END-OF-SECTION STOP. 

REPEAT SECTION. 



00842 
00843 
00844 
00845 
00846 
00847 
00848 
00849 
00850 
00351 

00852 
00853 
00854 
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/" 



o 



( 





CRPA0O 


0856 






0857 






0858 






0860 






0861 


P0204 


C800 




P0205 


FE01 


086? 


P0206 


A0 6E 


0863 


P0207 


0112 


0864 


P0208 


1800 




P0209 


QODC 


0865 


P020A 


OA03 


0866 


P020B 


60 F9 


0867 


P020C 


0C20 


0868 


PO 200 


40DQ 


0869 


P020E 


FOFA 


087ft 


P020F 


0A01 


8871 


P0210 


0302 


0872 


P0211 


1803 


0873 


P0212 


54EC 


0874 


P0213 


54ED 


0876 






0877 






0878 






0879 






0880 






0881 






0882 






0883 






088t» 






0885 






0886 






0887 






0888 






0889 






0890 






0891 






0892 






893 






0894 


P0214 


OAAF 


0895 


P0215 


60 D7 


0896 


P0216 


5800 




P0217 


0685 


0897 


P0218 


5800 




P0219 


08OA 


0898 


P021A 


EOFA 


0899 


P021R 


0020 


0900 


P021C 


cooo 




P021D 


009F 
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♦SECTION 3 - READER FEED, INTERRUPT 
•33333333333333333333333333333333333333333333333333333333333333333333333 



•INITIALIZE SECTION 3 
SEC 3 LOA SEC TOT 



AND- 


CONST+3 


SAN 


2 


JMP 


SEC4 


ENA 


3 


STA- 


SEC 


ENQ 


S20 


STQ- 


STATION 


AOQ- 


EQUIP 


ENA 


1 


OUT 


♦2 


JHP» 


LOOP30 


RTJ- 


<ERR0R4» 


RTJ- 


(ERR0R5I 



GET SECTION PARAMETER. 

CHECK FOR BIT 3. 

GO TO NEXT SECTION IF NOT SET, 



SAVE SECTION NO. FOR ERRORS. 
SET Q05 f STATION 1). 



CLEAR CONTRILLER 



•SFCriON 3, LOOP fl 

* FEED, SELECT ALL INTERRUPTS, EXPECT REPLY. 

* GET STATUS, EXPECT BUSY AND READY. 

• WAIT 18 MILLI-SECONDS MAX FOR COLUMN 1 DATA STATUS. 

♦ EXPECT DATA INTERRUPT. 

• EXPECT STATUS UPON DATA INTERRUPT TO BE DATA, INTERRUPT, BUSY, 

* REAOY. 

♦ INPUT DATA, EXPECT REPLY. 

» GET STATUS, EXPECT 3USY AND READY. 

* LOOP TO INPUT DATA FOR 8 COLUMNS WITH 700 HJCRO- 

* SECONDS MAX BETWEEN COLUMNS. 

♦ WAIT 700 MICRO-SECONDS MAX FOR £OP STATUS. 

• EXPECT EOP INTERRUPT. 

* EXPECT STATUS UPON EOP INTERRUPT TO 8E EOP, INTERRUPT, REAOY. 

• CLEAR INTERRUPT, EXPECT REPLY. 

• EXPECT STATUS TO BE EOP AND READY. 

♦ CLEAR CONTROLLER, EXPECT REPLY. 

• EXPECT STATUS TO BE REAOY. 
L00P3C ENA -80 

STA- COLUMN INITIALIZE COLUMN COUNTER. 

RTJ OLVPAR DELAY 



S30A 



RTJ 

LDQ- 

INQ 

LOA 



MOTOR 

EQUIP 

$20 

=N$009F 



FEED A CARD TO START MOTOR. 

EQ. NO. Q00 SET. 
SET Q05 (STATION 1J. 

SET A07, AO 4 THRU AOO. 



00856 
00857 
00858 



00860 
00861 

00862 
00863 
00864 

00865 
00866 
00867 
00868 
00869 
00870 
00871 
00872 
00873 
00874 



00876 
00877 
00878 
00879 
00880 
00881 
00882 
00883 
00884 
00885 
00886 
00887 
00888 
00889 
00890 
00891 
00892 
00893 
00894 
00895 
00896 

00897 

00898 
00899 
00900 
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DATEI 01/04/75 



0901 P021E 0302 


OUT 


2 


0902 P021F 1804 


JHP» 


S30B 


0903 P0220 54EC 


RTJ- 


(ERR0R4) 


090% P0221 54ED 


RTJ- 


(ERRORS) 


0905 P0222 18F7 


JMP» 


S30A 


0906 P0223 COOO S30B LOA 


=N$C000 


P0224 COOO 






0907 P0225 60D6 


STA- 


TIME 


090A P0226 54EA 


RT J- 


(INITEOP) 


0909 P0227 54E9 


RTJ- 


CINITOATA) 


0910 P0228 54EB 


RTJ- 


(INITALARM) 


0911 P0229 0C2O S30C ENQ 


$20 


0912 P022A 54E6 


RTJ- 


(STATUS) 


0913 P022B BOOO 


EOR 


=N$0003 


P022C 0003 


• • 




0914 P0220 0102 


SAZ 


S30D-*-l 


0915 P022E 54EF 


RTJ- 


(ERR0R7) 


0916 P022F 1832 


JMP» 


S30G 


0917 P023Q OC20 S300 ENQ 


$20 


0918 P0231 0C2Q 


ENQ 


$20 


B919 P0232 54E6 


RTJ- 


(STATUS* 


0920 P0233 0006 


RAO- 


TIHE 


0921 P0234 E007 


LOQ- 


COLUMN 


0922 P0235 Q15C 


SQN 


S30E-»-l . 


0923 P0236 OFCB 


ALS 


11 


0924 P0237 0134 


SAH 


S300A-*-l 


0925 P0238 E0D6 


LDQ- 


TIME 


0926 P0239 0162 


SQP 


2 


0927 P023A 54E5 


RTJ- 


(SMM) 


0928 P023B 18F4 


JMP» 


S30D 


0929 P023C 0FC5 S300A ALS 


5 


0930 P023D BOOO 


EOR 


=N$0015 


P023E 0015 






0931 P023F 54EF 


RTJ- 


(ERROR7) 


0932 P0240 54F6 


RTJ- 


(ERRORE) 


0933 P0241 1820 


JMP* 


S30G 


0934 P0242 OFCC S30E ALS 


12 


0935 P0243 0134 


SAM 


S30F-»-l 


0936 P0244 E006 


LDQ- 


TIME 


0937 P0245 0162 


SQP 


2 


0938 P0246 54E5 


RTJ- 


(SMM) 


0939 P0247 18E8 


JMP* 


S30D 


0940 P0248 0FC4 S30F ALS 


k 


094i P0249 BQ7D 


EOR- 


H000F 


0942 P024A 0102 


SAZ 


2 


0943 P024B 54EF 


RTJ- 


(ERROR7) 


0944 P024C 1815 


JMP» 


S30G 


0945 P0240 CODA 


LDA- 


OATAIF 


0946 P024E 0112 


SAN 


2 


0947 P024F 54F1 


RTJ- 


(ERR0R9) 


0948 P0250 1811 


JMP» 


S30G 


0949 P0251 COOC 


LDA- 


ALAIF 


0950 P0252 0102 


SAZ 


2 



CLEAR, FEED, ALL INTERRUPTS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 



PTC2 

INITIALIZE TIHE COUNTER. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE OATA INTERRUPT. 
INITIALIZE ALARH INTERRUPT. 
SET Q05 (STATION 1) 
GET STATION 1 STATUS. 
EXPECT BUSY AND REAOY STATUS. 

SKIP IF OKAY. 

ERROR 7, UNEXPECTED STATUS. 

SET Q05 STATION 1 READER PTCZ 
SET Q05 (STATION i>. 
GET STATION 1 STATUS. 
INCREMENT TIME COUNTER. 

SKIP IF NOT COLUMN 81. 

SKIP IF EOP STATUS. 

SKIP IF MAX ALLOWABLE TIME. 

GO TO MONITOR AND BACK. 

LOOP. 

SHIFT STATUS INTO POSITION. 

EXPECT EOP, INTERRUPT, READY. 

ERROR 7, UNEXPECTED STATUS. 
ERROR E IF ALARM INTERRUPT. 

SKIP IF OATA STATUS. 

SKIP IF MAX ALLOWABLE TIME. 

GO TO MONITOR AND BACK. 

LOOP. 

SHIFT STATUS INTO POSITION. 

EXPECT OATA, INT, 8USY, REAOY 

SKIP IF OKAY. 

ERROR 7, UNEXPECTED STATUS 



SKIP IF OATA INTERRUPT OCCURRED. 
ERROR 9, NO DATA INTERRUPT. 



SKIP IF NO ALARM INTERRUPT. 



00901 
00902 
00903 
00904 
00905 
00906 

00907 
00»0fl 
00909 
00910 
00911 
00912 
00913 

00914 
00915 
00916 
00917 
00918 
00919 
00920 
00921 
00922 
00923 
00924 
00925 
00926 
00927 
00920 
00929 
00930 

00931 
00932 
00933 
00934 
00935 
00936 
00937 
00930 
00939 
00940 
00941 
00942 
00943 
00944 
00945 
00946 
00947 
00948 
00949 
00950 
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V-' 



CRPAOD ■ 


PAGE 


27 


0951 P0253 5%F6 


RTJ- 


(ERRORE) 


0952 P025% 1800 


JHP* 


S30G 


0953 P0255 0007 


RAO- 


COLUMN 


0951* P0256 OAOF 


ENA 


-32 


0955 P0257 60D6 


STA- 


TIME 


• 0956 P0258 EOFA 


LOQ- 


EQUIP 


0957 P0259 001F 


INQ 


$1F 


0958 P025A 0203 


INP 


3 


0959 P0259 C0%2 


LDA- 


SETMAS 


0960 P025C 0821 


TRA 


M 


0961 P0250 OBOO 


NOP 





0962 P025E 18CA 


JMP* 


S30C 


0963 P025F 5%EC 


RTJ- 


(ERROR%) 


096% P0260 5%ED 


RTJ- 


(ERR0R5) 


0965 P0261 5%F3 S30G RTJ- 


(ERRORS) 


0966 P0262 EOFA S30H LDQ- 


EQUIP 


0967 P0263 0D20 


INQ 


$20 


0968 P0264 0A02 


ENA 


2 


0969 P0265 0302 


OUT 


2 


0970 P0266 180% 


JMP» 


S30I 


0971 P0267 5%£C 


RTJ- 


(ERROR%) 


0972 P0268 5%E0 


RTJ- 


(ERRORS) 


0973 P0269 18F8 


JMP» 


S3 OH 


097% P026A 0C20 ... S30I ENQ 


S20 


0975 P026B 5%E6 


RTJ- 


(STATUS) 


0976 P026C BQOO 


EOR 


-NS0B11 


P0260 0011 






0977 P026E 5%EF 


RTJ- 


(ERR0R7) 


0978 P026F EOFA S30J LDQ- 


EQUIP 


0979 P027Q 0O28 .... 


INQ 


$20 


0980 P0271 0AO1 


ENA 


1 


0981 P0272 0302 


OUT 


2 


0982 PO 273 160% 


JHP» 


S38K 


0983 P027% 5%EC 


RTJ- 


(ERR0R%) 


098% P0275 5%ED 


RTJ- 


(ERRORS) 


0985 P0276 16F.8 


JMP» 


S30J .. 


0986 P0277 0C20 S30K ENQ 


$20 


0987 PO 278 5%E6 


RTJ- 


(STATUS) 


- 0988 P8 279 BO 08 


:'•:- EQR ■ 


*N$80il 


P027A 0011 






0989 P027B 5%EF 


RTJ- 


(ERR0R7) 


-0998 P027C 5%E8. 


RTJ- 


(IC100) 


0991 PQ27D 1896 


JMP* 


LOOP30 



DATEl Ul/0%/75 



ERROR E, ALARM INTERRUPT. 

INCREMENT COLUMN COUNTER, 

PTC2 
INITIALIZE TIME FOR COLS. 2-81. 
EQ. NO. t Q00 SET. 
CLEAR Q00, SET Q05 (STATION 1) 



EXPECT REPLY. LOOP TO NEXT COL. 

ERROR %, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

ERROR B IF NO EOP INTERRUPT. 

EQ. NO., Q00 SET. 

SET Q05 (STATION 1). 

SET A01. 

CLEAR INTERRUPT. 

EXPECT REPLY. 

ERROR %, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

SET Q05 (STATION 1). 

GET STATION 1 STATUS. 

EXPECT EOP ANO READY STATUS. 

ERROR 7, UNEXPECTED STATUS. 

EQ. NO., QOQ SET. 

SET Q05 (STATION II. 

SET A00. 

CLEAR CONTROLLER. 

EXPECT REPLY. - 

ERROR %, INTERNAL REJECT. 

ERROR 5t EXTERNAL REJECT. 

HANG ON REJECT. - 

SET Q05 (STATION II. 
GET STATI.ON 1 STATUS. 
EXPECT £ OP AMD READY STATUS. 



ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 180 TIMES. 



00951 
00952 
80953 
0095% 
00955 
00956 
00957 
00958 
00959 
00960 
00961 
00962 
00963 
0096% 
00965 
00966 
00967 
00 968 
00969 
00970 
00971 
00972 
00973 
0097% 
80975 
00976 

80977 
00978 
08979. 
00988 
08961 
88982 
00983 
0098% 
80985 
00986 
80987 
80988 

80989 

00990- 

00991 



099% 
0995 
3-996 
0997 
Q998 



•SECTION 3, LOOP 1 - FORCE LOST DATA 8099% 

* ■ '. • SELECT FEED, ALARM AND EOP INTERRUPTS ON READER, EXPECT REPLY. 00995 
.»■. . ...... GET STATUS, EXPECT BUSY ANO READY. - 83996 

* WAIT 120 MILLI-SECONDS MAXIMUM FOR HOP INTERRUPT. 80997 

* EXPECT STATUS UPON EOP INTERRUPT TO BE LOST DATA, ALARM, EOP, 00998 
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0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 

1013 

1014 
1015 
1016 

1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 

1027 
1028 
1029 

1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 

1039 
1040 

1041 

1042 
10<»3 



P027E 
P027F 
P0280 
P0261 
P0282 
P0283 
P0284 
P0285 
P0286 
P0287 
P0288 
P0289 
P028A 
P028B 
P028C 
P028O 
P028E 
P028F 
P029Q 
P0291 
P0292 
P0293 
P0294 
P0295 
P0296 
P0297 
P0298 
P0 299 
P029A 
P029B 
P029C 
P029D 
P029E 
P029F 
P02A0 
P02A1 
P02A2 
P02A3 
P02A4 
P02A5 
P02A6 
P02A7 
P02A8 
P02A9 
P02AA 
P02AQ 



CO 56 
0F«»2 
0C03 
08B2 
CA5F 
60D6 
5800 
0617 
5800 
08 6C 
EOFA 
0D20 
COOO 
0099 
0302 
1804 
54 EC 
54ED 
18F7 
54EA 
54 EB 
0C20 
54E6 
BOOO 
0003 
54EF 
54E5 
5800 
0624 
CODB 
0116 
DDD6 
C006 
0121 
18F7 
54F3 
1809 
C800 
05F5 
60 OF 
AOOO 
FB7F 
BOOO 
00 70 
54EF 
COOC 



L00P31 



S31A 



S31B 



S31C 



3310 



INTERRUPT, READY. 

EXPECT ALARM INTERRUPT. 

EXPECT STATUS UPON ALARM INTERRUPT TO BE LOST DATA, ALARM, 

INTERRUPT, BUSY, READY. 

CLEAR INTERRUPT, EXPECT REPLY. GET STATUS, EXPECT LOST OATA, 

ALARM, READY (IGNORE EOF STATUS». 

CLEAR CONTROLLER, EXPECT REPLY. GET STATUS, EXPECT READY. 

LDA- SMMPAR 

ARS 2 

ENO 3 

LAQ Q 

LOA» S31TIM,Q 

STA- TIME INITIALIZE TIME COUNTER. 

RTJ OLYPAR OELAY 



!31f 



RTJ 

LDQ- 

INQ 

LOA 

OUT 

JMP» 

RTJ- 

RTJ- 

JMP» 

RTJ- 

RTJ- 

ENQ 

RTJ- 

EOR 

RT J- 
RTJ- 
RTJ 

LDA- 

SAN 

RAO- 

LOA- 

SAP 

JMP* 

RTJ- 

JMP* 

LOA 

STA- 
ANO 

EOR 

RTJ- 

LDA- 



MOTOR 

EQUIP 

$20 

-NJ0099 

2 

S31B 

(ERR0R4) 

IERROR51 

S31A 

(INITEOPI 

(INITALARN) 

$20 

(STATUS) 

=N$0003 

(ERR0R7) 
(SMM) 
MILL I 

EOPIF 

S3iO-*-l 

TIME 

TIME 

1 

S31C 

(ERRORS) 

S31E 

EOPIS 

ACT 
=N$FB7F 

=N$007D 

(ERROR7) 
ALAIF 



FEED A CARO TO START MOTOR. 

EQ. NO., Q00 SET. 
SET QQ5 (STATION II. 
SET A07, AOA, A03, A00. 

CLEAR, FEED, tOP AND ALARM INTS. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

INITIALIZE EOP INTERRUPT. 

INITIALIZE ALARM INTERRUPT. 

SET Q05 (STATION II* 

GET STATION 1 STATUS. 

EXPECT BUSY AND READY STATUS. 

ERROR 7 IF UNEXPECTED STATUS* 
GO TO MONITOR AND BACK. 
DELAY 1 MTLLI-SECOND. 



SKIP IF EOP INTERRUPT OCCURRED. 
INCREMENT TIME COUNTER. 

SKIP IF 75 MSEC ELAPSED. 
WAIT 75 MSEC MAX FOR EOP INT. 
ERROR B, NO EOP INTERRUPT. 

GET STATUS UPON EOP INTERRUPT. 

SAVE FOR ERROR MESSAGE. 
IGNORE EOP ANO PROTECT STATUS. 

EXPECT OATA, LOST OATA, ALARM, EOP 

ERRO* 7 IF UNEXPECTED STATUS. 



00999 
01000 
01001 
01002 
0100 3 
01004 
01005 
01006 
01007 
01008 
01009 
01010 
01011 
01012 

01013 

01014 
01015 
01016 

01017 
01018 
01019 
01020 
01021 
01022 
01023 
01024 
01025 
01026 

01027 
01926 
01029 

01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01036 

01039 
01040 

01041 

01042 
01043 
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PAGE 


29 


1044 


P02AC 0112 




SAN 


S31F-»-l 


1045 


P02AD 54F5 




RTJ- 


( ERROR J 


1046 


P02AE 1*09 




\%JtIP* ■ - 


SJtfc 


1047 


P02AF ceo* 
PQ280 0SEA 


S31F 


LOA 


ALAIS 


1048 


P02B1 60OF 




STA- 


ACT 


1049 


P02B2 A000 
P02B3 FB7F 




AND 


=N$F87F 


1050 


P02B4 8000 
P02B5 0070 




EOR 


=N$7D 


1051 


P0286 54EF 




RTJ- 


(ERR0R7) 


1052 


P02B7 EOFA 


S31G 


LDQ- 


EQUIP 


1053 


P02B8 0O20 




INQ 


$20 


1054 


P02B9 0A02 




ENA 


2 


1055 


P02BA 0302 




OUT 


2 


1056 


P02BB 1884 




JHP» 


S31H 


1057 


P02BC 54EC 




RTJ- 


(ERR0R4) 


1058 


P02BO S4E0 




RTJ-> 


(ERRORS) 


1859 


P02BE 18F6 




JMP» 


S3 16 


1060 


P02BF OC20 


S31H 


ENO 


$20 


1061 


P02C0 54E6 




RTJ- 


(STATUS) 


1062 


P02C1 B000 
P02C2 00 79 




EOR 


=N$0079 


1063 


P02C3 54EF 




RTJ- 


(ERR0R7) 


1064 


P02C4 EOFA 


S31I 


LOQ- 


EQUIP 


1065 


P02C5 0O20 




INQ 


$20 


1066 


P02C6 0A01 




ENA 


1 


1067 


P02C7 0302 




OUT 


2 


1066 


P02C8 1804 




JMP» 


S31J 


1069 


P02C9 54EC 




RTJ- 


(ERRORS) 


1070 


P02CA 54E0 




RTJ- 


(ERRORS) 


1071 


P02CB 18F8 




JMP» 


S31I 


1072 


P02CC 0C20 


S31J 


END 


$20 


1073 


P02CD 54E6 




RTJ- 


(STATUS) 


1074 


P02CE B000 
P02CF 0011 




EOR 


=N$0011 


1075 


P02O0 54EF 




RTJ- 


(ERR0R7) 


1076 


P02D1 54E8 




RTJ- 


(IC100) 


1077 


P02D2 18AB 


. 


JMP» 


LOOP31 


1079 




♦END OF 


SECTION 


3 


1080 


P02O3 EOFA 


SEC3A 


LDQ- 


EQUIP 


1081 


P02D4 0D20 




INQ 


$20 


1082 


P0205 0AQ1 




ENA 


1 


1083 


P02D6 0302 




OUT 


2 


108*1 


P02O7 1804 




JMP* 


SEC3B 


1085 


P02D8 54EC 




RTJ- 


(ERRORS) 


1086 


P02D9 54E0 




RTJ- 


(ERROR5) 


1087 


P820A 18F8 




JMP* 


SEC3A 


1088 


P02DB 5800 
PQ2DC 049F 


SEC3B 


RTJ 


ENOSEC 



DATE: m/04/75 



SKIP IF ALARM INT. OCCURRED, 


01044 


ERROR D, NO ALARM INTERRUPT, 


01045 




01046 


GET STATUS UPON ALARM INT, 


01047 


SAVE FOR ERROR MESSAGE. 


01048 


IGNORE EOF ANO PROTECT STATUS. 


01049 


EXPECT DATA, LOST OATA, ALARM ,EOP. 


01050 


ERROR 7 IF UNEXPECTED STATUS. 


01051 


EQ. NO., Q00 SET, 


01052 


SET Q05 (STATION 1). 


01053 


SET A01. 


01054 


CLEAR INTERRUPTS. 


01055 


EXPECT REPLY. 


01056 


ERROR 4* INTERNAL REJECT. 


01057 


ERROR 5 t EXTERNAL REJECT, 


01058 


HANG ON REJECT. 


01059 


SET Q05 (STATION 1). 


01060 


GET STATION 1 STATUS. 


01061 


EXPECT LOST OAT A, ALARM, EOP, OATA. 


01062 


ERROR 7 IF UNEXPECTED STATUS. 


01063 


EQ. NO., Q00 SET. 


01064 


SET Q05 (STATION 1), 


01065 


SET A 00. 


01066 


CLEAR CONTROLLER. 


01067 


EXPECT REPLY. 


01068 


ERROR 4, INTERNAL REJECT. 


01069 


ERROR 5, EXTERNAL REJECT. 


01070 


HANG ON REJECT. 


01071 


SET Q05 (STATION 1). 


01072 


GET STATION 1 STATUS. 


01073 


EXPECT READY ANO EOP STATUS. 


01074 


ERROR 7 IF UNEXPECTED STATUS. 


01075 


INCREMENT LOOP COUNTER. 


01076 


LOOP 100 TIMES. 


01077 


v ■ 


01079 


EQ. NO. , Q00 SET. 


01080 


SET Q05 (STATION 11 


01081 


SET AGO. 


01082 


CLEAR CONTROLLER. 


01083 


EXPECT REPLY. 


01084 


ERROR *f, INTERNAL REJECT. 


01085 


ERROR 5, EXTERNAL REJECT. 


01086 


HANG ON REJECT. 


81087 


END-OF-SECTION STOP. 


01088 
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1089 P02DO 1802 

1090 P020E 1807 
1891 P02DF 1800 

P02E0 FF23 



1093 P02E1 FF87 
109% P02E2 FF89 

1095 P02E3 FF85 

1096 P02E% FF7F 



SEC3C 



S31TIM 



PAGE 


30 


JMP* 
JMP* 
JMP 


SEC3C 
SEC% 
SEC 3 


NUM 
NUM 
NUM 
NUM 


-120 
-118 
-122 
-128 



DATEI Oi/0%/75 



REPEAT SECTION. 

GO TO NEXT SECTION, 



170%/17i% 
177% 

178* - 900 
178% - 600 



01089 
01090 
01891 



81093 
0109% 
01095 
01096 
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DATEI 01/04/75 



1098 
1099 
1100 



********************************** **♦*»*♦*»♦*♦»»*♦♦#*»#♦ *********** ***** 01098 
♦SECTION 4 - PUNCH WHEN NO REJECT 01099 

*j»it4i»i t jt44it4it444444444444444444444444444444444444444444444444444444444444 01100 



1102 
1103 

1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 



P02E5 
P02E6 
P02E7 
P02E8 
P02E9 
P02EA 
P02EB 
P02EC 
P02ED 
P02EE 
PQ2EF 
P02F0 
P02F1 



C800 
F020 
A0 6F 
0111 
1861 
0A04 
60F9 
0C4O 
40 OD 
0844 
6009 
60 E2 
54F8 



•INITIALIZE SECTION 4 
SEC* LOA SECTOT 



ANO- 

SAN 

JMP* 

ENA 

STA- 

ENQ 

STQ- 

CLR 

STA- 

STA- 

RTJ- 



CONST+4 

1 

SEC5 

4 

SEC 

$40 

STATION 

A 

EOFFLAG 

OFFSTF 

(GENERATE) 



GET SECTION PARAMETER. 

CHECK FOR BIT 4. 

GO TO NEXT SECTION IF NOT SET, 

SAVE SECTION NO. FOR ERRORS. 
SET Q06 (STATION 2). 



CLEAR FNO-OF-FILE FLAG. 

CLEAR OFFSET FLAG. 

GENERATE PATTERN (TWO-FIVE) 



01102 
01103 

01104 
01105 
01106 
01107 
01108 
01109 
OHIO 
01111 
01112 
01113 
01114 



1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 

1126 
1127 
1128 
1129 
1130 

1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 



P02F2 
P02F3 
P02F4 
P02F5 
P02F6 
P02F7 
P02F8 
P02F9 
P02FA 
P02FB 
P02FC 
P02FD 
P02FE 
P02FF 
P0300 
P0 301 
P0302 
P0303 
P0304 
P0305 
P0306 
P0307 
P0308 
P0309 



OAAF 
60 07 
5800 
05A7 
EOFA 
0D40 
C0E2 
0FC8 
8000 
0099 
0302 
180<f 
54 EC 
54ED 
18 F5 
54EA 
54EB 
54E5 
CG07 
0131 
1820 
E007 
CAOO 
08A8 



♦SECTION 4, LOOP - PUNCH 100 TWO-FIVE CARDS FOLLOWED BY END-OF-FILE. 

* SELECT CLEAR, FEED, EOP AND ALARM INTERRUPTS ON PUNCH, EXPECT 
» REPLY. GO TO MONITOR AND BACK, EXPECT NO INTERRUPT. 

* ATTEMPT DATA OUTPUT. RETURN TO MONITOR IF EXTERNAL REJECT. 

* IF REPLY, INCREMENT COLUMN COUNT, GET STATUS, EXPECT READY. 

* REPEAT FOR 80 COLUMNS, THEN WAIT FOR EOP INTERRUPT. 

* EXPECT EOP, INTERRUPT, READY STATUS. CLEAR CONTROLLER. 
L00P4Q ENA -80 

STA- COLUMN INITIALIZE COLUMN COUNT 

RTJ OLYPAR DELAY 



S40A 



S40B 
S40C 

S40D 



LDQ- 
INQ 
LDA- 
ALS 
A on 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP* 

RTJ- 

RTJ- 

RTJ- 

LDA- 

SAM 

JMP* 

LDQ- 

LOA 



EQUIP 

OFFSTF 

8 

=N$0099 



S40B 

(ERR0R4) 

(ERROR5) 

S40A 

(INITEOP) 

(INITALARM) 

(SMM) 

COLUMN 

1 

S40F 

COLUMN 

BUFFOUT+80,Q 



EQ. NO. , Q00 SET. 

SET 006 (STATION 2). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07,A04,A03,A00. 

CLEAR, FEED, EOP AND ALARM INTS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR AND BACK. 



JUMP IF COLUMN 81. 
DATA TO OUTPUT. 



01116 
01117 
01118 
01119 
01120 
01121 
01122 
01123 
01124 
01125 

01126 
01127 
01128 
01129 
01130 

01131 
01132 
01133 
01134 
01135 
01136 
01137 
01138 
01139 
01140 
01141 
01142 
01143 
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OATEt Ci/04/75 



1144 P030A 


EOFA 


Lno- 


EQUIP 


1145 P030B 


0O3F 


INQ 


$3F 


1146 P030C 


0302 


OUT 


2 


1147 P0300 


1804 


JMP* 


S40E 


lti*(l P030E 


54 EC 


RTJ- 


(ERRORS) 


1149 P030F 


18F3 


JMP* 


S40C 


1150 P0310 


18F6 


JMP* 


S400 


H51 P0311 


O0D7 S40E RAO- 


COLUMN 


1152 P0312 


0C40 


ENQ 


$40 


1153 P0313 


54E6 


RTJ- 


(STATUS) 


1154 P0314 


BOOO 


EOR 


=N$0003 


P0315 


0003 






1155 P0316 


EODC 


LDQ- 


ALAIF 


1156 P0317 


FOOB 


AOQ- 


EOPIF 


1157 P0318 


0832 


AAQ 


Q 


1158 P0319 


0151 


SQN 


1 


1159 P031A 


18E8 


JMP» 


S40C 


1160 P031B 


0C01 


ENQ 


1 


1161 P031C 


40 E2 


STQ- 


OFFSTF 


1162 P031D 


54EF 


RTJ- 


(ERROR7) 


1163 P031E 


54F6 


RTJ- 


(ERRORS) 


116^ P031F 


54F4 


RTJ- 


(ERRORC) 


1165 P0320 


C009 


LDA- 


EOFFLAG 


1166 P0321 


0113 


SAN 


3 


1167 P0322 


C0 7A 


LOA- 


C0NST»15 


1168 P0323 


5406 


RTJ- 


(JUMP) 


1169 P0324 


1812 


JMP» 


S40FA 


1170 P0325 


18CC 


JMP* 


LOOP<fO 


1171 P0326 


CODD S40F LOA- 


EOPIF 


1172 P0327 


80 DC 


AOD- 


ALAIF 


1173 PQ328 


0111 


SAN 


1 


1174 P0329 


18D9 


JMP* 


S<»0C 


1175 P032A 


54F6 


RTJ- 


(ERRORE) 


1176 P0320 


0C40 


ENQ 


$40 


1177 P032C 


54E6 


RTJ- 


(STATUS) 


1178 P0320 


eouo 


EOR 


-NS0015 


P032E 


0015 






1179 P032F 


54EF 


RTJ- 


(ERROR7) 


1180 P0330 


0844 


CLR 


A 


1181 P0331 


60E2 


STA- 


OFFSTF 


1182 P0332 


C0D9 


LDA- 


EOFFLAG 


1183 P0333 


0116 


SAN 


S40G-*-l 


1184 P0334 


54E8 


RTJ- 


(IC100) 


1185 P0335 


18BC 


JMP* 


LOOP40 


1186 P0336 


D009 S40FA RAO- 


EOFFLAG 


1187 P0337 


0A05 


ENA 


5 


1188 PQ338 


54F8 


RTJ- 


(GENERATE) 


1189 P0339 


1888 


JMP* 


LOOP40 


1190 P033A 


5800 S40G RTJ 


OFFSET 


P033B 


0705 






1191 P033C 


0A10 


ENA 


$10 


1192 D 033O 


5406 


RTJ- 


(JUMP) 


1193 P033E 


18B3 


JMP* 


LOOPifO 



EQ. NO.* QOO SET. 

SET Q06 (STATION 2), CLEAR QOO. 

ATTEMPT DATA OUTPUT. 

REPLY. 

ERROR 4, INTERNAL REJECT. 

EXTERNAL REJECT, GO TO MONITOR. 

HANG ON INTERNAL REJECT. 

INCREMENT COLUMN COUNTER. 

SET Q06 (STATION 21. 

GET STATION 2 STATUS. 

EXPECT READY AND BUSY STATUS. 



CHECK FOR UNEXPECTED INTERRUPT 

OR UNEXPECTED STATUS. 
GO TO NEXT COLUMN IF OKAY. 

SET OFFSET FLAG. 
ERROR 7 IF UNEXPECTED STATUS. 
ERROR E IF ALARM INTERRUPT. 
ERROR C IF EOP INTERRUPT. 

SKIP IF ENO-OF-FILE CARD. 

CHECK STOP/JUMP BIT 15. 

EXIT LOOP IF SET. 

ATTEMPT TO PUNCH PATTERN AGAIN. 

COLUMN 80 HAS PASSEO. 



WAIT FOR EOP INTERRUPT. 
ERROR E IF ALARM INTERRUPT 
SET Q06 (STATION 2). 
GET STATION 2 STATUS 
EXPECT EOP, INTERRUPT, READY. 

ERROR 7, UNEXPECTED STATUS. 

CLEAR OFFSET FLAG. 

SKIP IF ENO-OF-FILE CARD. 
INCREMENT LOOP COUNTER. 
PUNCH 100 TWO-FIVE CARDS. 
SET END-OF-FILE FLAG. 

GENERATE PATTERN 5 (EOF) 

PUNCH EOF CARD. 

OFFSET END-OF-FILE CARD. 



CHECK STOP/JUMP BIT 4. 
PUNCH MORE EOF CARDS IF SET. 



01144 
01145 
01146 
01147 
01148 
01149 
01150 
01151 
01152 
01153 
01154 

01155 
01156 
01157 
01158 
01159 
01160 
01161 
01162 
01163 
01164 
01165 
01166 
01167 
01168 
01169 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 
01178 

01179 
01160 
01181 
01182 
01183 
01184 
01185 
01186 
01167 
01188 
01189 
01190 

01191 
01192 
01193 
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OATEI 01/04/75 



1195 

1196 PQ33F EOFA 

1197 P034Q 0040 

1198 P0341 0A01 

1199 P0342 0302 

1200 P0343 1804 

1201 P0344 54EC 

1202 P0345 54ED 

1203 P0346 18F8 

1204 P0347 5800 
P0348 0433 

1205 P0349 1«98 



♦END OF SECTION 4 
SEC*** 



SEC40 



LOQ- 


EQUIP 


INQ 


?40 


ENA 


1 


OUT 


2 


JMP* 


SEC4B 


RTJ- 


(ERR0R4) 


RTJ- 


(ERROR5) 


JMP» 


SEC4A . 


RTJ 


ENDS EC ' 



JMP* 



SEC4 



EO. NO. t Q00 SET. 

SET Q06 (STATION 2). 

SET A00. 

CLEA9 CONTROLLER. 

EXPF.CT REPLY. 

ERRCR4, INTERNAL REJECT. 

ERR0R5, EXTERNAL REJECT. 

HANG ON REJECT. 

ENO-OF-SECTION STOP. 

REPEAT SECTION 



01195 
01196 
01197 
01198 
01199 
01200 
01201 
01202 
01203 
01204 

01205 
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DATE! Gl/0k/75 



1207 
1208 
1209 



************************************************************************ 01207 
"SECTION 5 - PUNCH WHEN OAT A STATUS 01208 

*55555555555555555555555555555555555555555555555555555555555555555555555 01209 



1211 
1212 

1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 



PQ34A 
P0348 
P034C 
P0340 
P034E 
P034F 
P0350 
P0351 
P0352 
P0353 
P0354 
"0355 
P0356 
P0357 



C800 
FCBB 
A0 70 
0111 
186F 
0A05 
60F9 
08*14 
60 D9 
60E2 
0A01 
54F8 
0C40 
4000 



'INITIALIZE SECTION 5 
SEC5 LOA SECTOT 



ANO- 

SAN 

JMP» 

ENA 

STA- 

CLR 

STA- 

STA- 

ENA 

RTJ- 

ENQ 

STQ- 



CONST+5 

1 

SEC6 

5 

SEC 

A 

EOFFLAG 

OFFSTF 

1 

(GENERATE) 

$40 

STATION 



GET SECTION PARAMETER. 

CHECK FOR BIT 5. 

GO TO NEXT SECTION IF NOT SET. 

SAVE SECTION NUMBER FOR ERRORS. 

CLEAR EOF FLAG. 
CLEAR OFFSET FLAG. 

GENERATE PATTERN 1 (SHIFTING 11. 
SET Q06 (STATION 2). 



01211 
.01212 

01213 
01214 
01215 
01216 
01217 
01218 
01219 
01220 
01221 
01222 
01223 
01224 



1226 
1227 
1228 
1229 
1230 
1231 
1232 

1233 
1234 
1235 
1236 
1237 

1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 



PQ358 
P0359 
P035A 
P035B 
P035C 
P0350 
P035E 
P035F 
P0360 
P0361 
P0362 
P0363 
PQ364 
P0365 
P0366 
P0367 
P0368 
P0369 
P036A 
P036B 
P036C 
P0360 
P036E 
P036F 
P0370 



OAAF 
6007 
5800 
0541 
EOFA 
0O40 
C0E2 
0FC8 
8000 
0099 
0302 
1804 
54EC 
54F0 
18F5 
54EA 
54E8 
54E5 
C0D7 
0131 
1820 
0C40 
54E6 
OFCC 
0131 



♦SECTION 

* 

LOOP^O 



S50A 



S50B 
S50C 



5, LOOP - PUNCH 100 SHIFTEO-ONE CARDS FOLLOWED BY EOF. 

SAME AS SECTION 5, LOOP EXCEPT DATA OUTPUT IS NOT TRIED 

UNTIL DATA STATUS OCCURS, ANO THEN A REPLY TO DATA 

OUTPUT IS EXPECTED. 

ENA -80 

STA- COLUMN INITIALIZE COLUMN COUNT. 

RTJ DLYPAR OELAY 



LOQ- 

INQ 

LOA- 

ALS 

AOD 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP* 

RTJ- 

RTJ- 

RTJ- 

LDA- 

SAM 

JMP» 

ENQ 

RTJ- 

ALS 

SAM 



EQUIP 

$40 

OFFSTF 

8 

=N$0099 

2 

S50B 

(ERR0R4) 

(ERR0R5) 

S50A 

(INITEOP) 

(INITALARM) 

(SMM) 

COLUMN 

1 

S50F 

$40 

(STATUS) 

12 

1 



EQ. NO., Q00 SET. 

SET Q06 (STATION 21. 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07,A04,A03,A00. 

CLEAR, FEED, HOP AND ALARM INTS. 
EXPECT REPLY. 
ERRORS, INTERNAL REJECT. 
ERROR 5, FXTRNAL REJECT. 
HANG ON REJECT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR AND BACK. 



JUMP IF COLUMN 81. 
SET Q06 (STATION 21. 
GET STATION 2 STATUS. 
CHECK BIT 3 (DATA STATUS). 



01226 
01227 
01228 
01229 
01230 
01231 
01232 

01233 
01234 
01235 
01236 
01237 

01238 
01239 
01240 
01241 
01242 
01243 
01244 
01245 
01246 
81247 
01248 
01249 
01250 
01251 
01252 
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1253 P0371 18F7 


JMP* 


S50C 


125<i PO 372 OFC% 


ALS 


t* 


1255 P0373 BOOO 


EOR 


=N$0009 


P037% 0009 






1256 P0375 E0D7 


LDQ- 


COLUMN 


1257 P0376 0O50 


INQ 


80 


1258 P0377 01%1 


sqz 


1 


1259 P0378 B06C 


EOR- 


CONST+1 


1260 PO 379 5%EF 


RTJ- 


IERR0R7) 


1261 P037A E007 S50D LOQ- 


COLUMN 


1262 PQ37B CAOO 


LOA 


BUFFOUT+80,Q 


P037C 0835 






1263 P037D EOFA 


LOQ- 


EQUIP 


126% P037E 0O3F 


INQ 


$3F 


1265 P037F 0302 


OUT 


2 


1266 P0380 180% 


JHP» 


S50E 


1267 P0 381 5%EC 


RTJ- 


(ERRORS! 


1268 P0 382 5%£D 


RTJ- 


t£RROR5) 


1269 P0383 18QE 


JHP* 


Si&EA 


1270 P038% D0D7 S5fff RAO- 


COLUMN 


1271 P0385 0C%0 


ENQ 


S%0 


1272 P0386 5%E6 


RTJ- 


(STATUS) 


1273 P0387 BOOO 


EOR 


-NS0003 


P0388 0003 






127% P0389 EOOC 


LOQ- 


ALAIF 


1275 P038A FOOB 


AOQ- 


EOPIF 


1276 P038Q 0832 


AAQ 


Q 


1277 P038C 0151 


SQN 


1 


1278 P0380 18DB 


JMP* 


S50C 


1279 P03BE 0C01 


ENQ 


1 


1280 P038F %0E2 


STQ- 


OFFSTF 


1281 P0390 5%EF 


RTJ- 


CERR0R7) 


1282 P0391 5%F6 S50EA RTJ- 


(ERROREI 


1283 P0392 5%F% 


RTJ- 


CERRORC) 


128% P0393 C0O9 


LDA- 


EOFFLAG 


1285 P039% 0113 


SAN 


3 


1286 P0395 C0 7A 


LOA- 


CONST+15 


1287 P0396 5%06 


RTJ- 


(JUMP) 


1288 P0397 1812 


JMP* 


S50FA 


1289 P0398 18BF 


JMP* 


LOOP50 


1290 P0399 C0D8 S50F LDA- 


EOPIF 


1291 P039A 80DC 


AOO- 


ALAIF 


1292 P039B 0111 


SAN 


1 


1293 P039C 18CC 


JMP* 


S50C 


129% P039D 5%F6 


RTJ- 


(ERRORE) 


1295 P039E 0C*»0 


ENQ 


J%0 


1296 P039F 5«»E6 


RTJ- 


(STATUS) 


1297 P03A0 OOOQ 


EOR 


sN$0015 


P03A1 0015 






1298 P03A2 5%EF 


RTJ- 


(ERR0R7) 


1299 P03A3 08%% 


CLR 


A - 


1300 P03A% 60E2 


STA- 


OFFSTF 


1301 P03A5 C0D9 


LOA- 


EOFFLAG 



DATEJ Oi/0%/75 



RETURN TO MONITOR IF NOT DATA. 

EXPECT DATA AND READY STATUS. 

GET COLUMN NO. 

SKIP IF NO COLUMNS PUNCHED YET. 

EXPECT BUSY STATUS. 

ERROR 7, UNEXPECTED STATUS. 

OATA TO OUTPUT. 

EQ. NO., Q00 SET. 

SET Q06 (STATION 2), CLEAR Q00. 

OUTPUT OATA. 

EXPECT REPLY. 

ERROR %, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

FEED CARO AGAIN IF REJECT. 

INCREMENT COLUMN COUNTER. 

SET Q06 (STATION 21. 

GET STATION 2 STATUS. 

EXPECT BUSY AND READY STATUS. 



CHECK FOR UNEXPECTED INTERRUPT 

OR UNEXPECTED STATUS. 
GO TO NEXT COLUMN IF OKAY. 

SET OFFSET FLAG. 
ERROR 7 IF UNEXPECTED STATUS. 
ERROR E IF ALARM INTERRUPT. 
ERROR C IF EOP INTERRUPT. 

SKIP IF END-OF-FILE CARD. .. 

CHECK STOP/JUMP BIT 15. 

EXIT LOOP IF SET. 

ATTEMPT TO PUNCH PATTERN AGAIN. 

COLUMN 80 HAS PASSED. 



WAIT FOR FOP INTERRUPT. 
ERROR E, ALARM INTERRUPT. 
SET Q06 (STATION 2). 
SET STATION 2 STATUS. 
EXPECT EOP, INTERRUPT, READY. 

ERROR 7, UNEXPECTED STATUS 

CLEAR OFFSET FLAG. 



01253 
0125ii 
01255 

01256 
01257 
01258 
01259 
01260 
01261 
01262 

01263 
0126% 
01265 
01266 
01267 
01268 
012*9 
SI 270 
01271 
01272 
01273 

0127% 
01275 
01276 
01277 
01278 
01279 
01260 
01261 
01262 
01283 
0128% 
01265 
01286 
01267 
01288 
01289 
01290 
01291 
01292 
01293 
0129*» 
01295 
01296 
01297 

01298 
01299 
01300 
01301 
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1302 


P03A6 0116 




SAN 


S50G-*-l 


1303 


P03A7 54E8 




RTJ- 


CIC100) 


1304 


P03A8 18AF 




JNP« 


L00P50 


1305 


P03A9 0009 


350 FA 


RAO- 


EOFFLAG 


1306 


P03AA 0A05 




ENA 


5 


1307 


P0 3AB 54F8 




RTJ- 


{GENERATE) 


1308 


P03AC 18A8 




JMP* 


LOOP50 


1309 


P03AO 5800 
P03AE 0692 


S50G 


RTJ 


OFFSET 


1310 


P03AF 0A10 




ENA 


$10 


1311 


P03B0 5406 




RTJ- 


(JUMP) 


1312 


P03B1 18A6 




JMP* 


LOOP50 


1314 




♦END OF 


SECTION 


5 


1315 


P0382 EOFA 


SEC5A 


LDQ- 


EQUIP 


131& 


P03B3 QO40 




INQ 


$40 


1317 


P03B4 0A01 




ENA 


1 


1318 


P03B5 0302 




OUT 


2 


1319 


P03B6 1804 




JMP» 


SEC5B 


1320 


P03B7 54EC 




RTJ- 


IERR0R4) 


1321 


P03B8 54ED 




RTJ- 


(ERR0R5) 


1322 


P0389 18F8 




JMP* 


SEC5A 


1323 


P03BA 5800 
P03BB 03CO 


SF.C5B 


RTJ 


ENDSEC 


1324 


P03BC 188D 




JNP» 


SEC5 



DATEI 01/04/75 



SKIP IF END-OF-FILE CARD. 
INCREMENT LOOP COUNTER. 
PUNCH 100 SHIFTFO-ONE CARDS. 
SET END-OF-FILE FLAG. 

GENERATE PATTERN 5 IEOFI- 

PUNCH EOF CARD. 

OFFSET ENO-OF FILE CARO. 



CHECK STOP/ JUMP BIT 4. 
PUNCH HORE EOF CARDS IF SET. 



EQ. NO., Q00 SET. 

SET Q06 CSTATION 2>. 

SET AOO. 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT 

ENO-OF-SECTION STOP, 

REPEAT SECTION. 



01302 
01303 
01304 
01305 
01306 
01307 
01308 
01309 

01310 
01311 
01312 



01314 
01315 
01316 
01317 
01318 
01319 
01320 
01321 
01322 
01323 

01324 
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1336 
1327 
1328 



♦ ***•»********»»****♦*•■♦*»♦******»**»*»*♦»**♦*»»******♦**»*»***♦*»**»*»♦* 01326 
•SECTION 6 - PUNCH IF DATA INTERRUPT 01327 

*66666666666666666666666666666666666666666666666666666666666666666666666 01328 



1330 
1331 

1332 
1333 
1334 

1335 
1336 
1337 
1338 
1339 
13l»0 
1341 
1342 
1343 
1344 
±31*5 



P03BD 
P03BE 
P03BF 
P03C0 
P03C1 
P0 3C2 
P03C3 
P03C4 
P03C5 
P03C6 
P03C7 
P03C8 
P03C9 
P03CA 
P03CB 
P03CC 
P03CO 



C8Q0 
FC48 
A071 
0112 
1800 
007B 
0A06 
60 F9 
0A02 
54F8 
0844 
6874 
60 09 
60 £2 
0C40 
40OD 
1803 



"INITIALIZE SECTION 6 
SEC6 LDA SECTOT 



SFC6A 



SEC6A1 



ANU- 

SAN 

JHP 

ENA 

STA- 

ENA 

RTJ- 

CLR 

STA» 

STA- 

STA- 

ENQ 

STQ- 

JHP» 



CONST+6 

2 

SEC 7 

6 

SEC 

2 

(GENERATE) 

A 

RESYNF 

EOFFLAG 

OFFSTF 

STATION 
LOP60A 



SECTION PARAMETER. 

CHECK BIT 6. 

GO TO NEXT SECTION IF NOT SET. 

SAVE SECTION NO. FOR ERRORS 

GENERATE PATTERN 2 ISHIFTING 0). 

CLEAR RESYNC CHECK FLAG 
CLEAR END OF FILE FLAG 
CLEAR OFFSET FLAG. 
SET Q06 (STATION 2). 



01330 
01331 

01332 
01333 
01334 

01335 
01336 
01337 
01338 
01339 
01340 
01341 
01342 
01343 
01344 
01345 



1347 
1348 
1349 
1350 
1351 
1352 

1353 
1354 
1355 
1356 
1357 
1358 
1359 

1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 



P03CE 
P03CF 
P03D0 
P03O1 
P0 3D2 
P03D3 
P0 3D4 
P0305 
P03D6 
P03O7 
P03D3 
P03O9 
P0 3DA 
P03DO 
P030C 
P0 3DL1 
P03DE 
P030F 
P03E0 
P03E1 
P03E2 



5800 
04CD 
OAAF 
60 07 
EOFA 
0040 
C0E2 
0FC8 
8000 
0C9F 
0302 
1804 
54EC 
5<»E0 
18F5 
5<»E9 
54EA 
54E8 
54E5 
CODB 
800C 



♦SECTION 6, LOOP - PUNCH 100 SHIFTING-ZERO CARDS AND EOF CARD. 

* SELECT CLEAR, FEEOt AND ALL INTERRUPTS ON PUNCH, EXPECT REPLY. 

* OUTPUT DATA IN OATA INTERRUPT ROUTINE 

* WAIT FOR EOP INTERRUPT. EXPECT COLUMN COUNT TO BE 80. 

* EXPECT NO ALARM INTERRUPT. 
RTJ DLYPAR DELAY 



LOOP60 



LOPfcCh 



S60A 



S60fJ 



S600 



ENA 


-80 


STA- 


COLUMN 


LOQ- 


FQUIP 


INQ 


J40 


LJA- 


OFFSTF 


ALS 


8 


AOO 


=N!.009F 


OUT 


2 


JMP» 


S60B 


RTJ- 


(ERR0R4) 


RTJ- 


(ERRORS) 


JMP* 


S60A 


RTJ- 


(INITOATA) 


RTJ- 


IINITEOP) 


RTJ- 


(INITALAPM) 


RTJ- 


(SMM) 


LOA- 


EOPIF 


ADH- 


ALAIF 



INITIALIZE COLUMN COUNT 

EQ. NO., Q00 SET. 

SET Q06 (STATION 2). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07, A04 THRU AOO. 

FEED, CLEAR, ALL INTERRUPTS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJFCT. 
INITIALIZE OATA INTERRUPT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR AND BACK. 



01347 
01348 
01349 
01350 
01351 
01352 

01353 
01354 
01355 
01356 
01357 
01358 
01359 

01360 
01361 
01362 
01363 
01364 
01365 
01366 
01367 
01368 
01369 
01370 
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1371 P03E3 0111 


SAN 


1 


1372 P03E4 18F8 


JMP» 


S60C 


1373 P03E5 54F6 


RTJ- 


(ERRORE) 


1374 P03E6 C0D7 


LDA- 


COLUMN 


1375 P03E7 0108 


SAZ 


S600-*-l 


1376 P03E8 0950 


INA 


80 


1377 P03E9 600F 


STA- 


ACT 


1378 P03EA 0A50 


ENA 


80 


1379 P03E8 60E0 


STA- 


EXP 


1380 P03EC 0A1O 


ENA 


$10 


1381 P03EO 0C11 


ENQ 


$11 


1382 P03EE 5800 


RTJ 


ERROR 


P03EF 0661 






1383 P03F0 0G40 S600 ENQ 


$*a 


138* P03F1 5*£6 


RTJ- 


(STATUS) 


1385 P03F2 8000 


EOR 


=N$0015 


P03F3 0015 






1386 P03F* E0O7 


LOQ- 


COLUMN 


1387 P03F5 0852 


TCQ 


Q 


1388 P03F6 FflDC 


AOQ- 


ALAIF 


1389 P03F7 0832 


AAQ 


Q 


1390 P03F8 01*1 


SOZ 


1 


1391 P03F9 0C01 


ENQ 


1 


1392 P03FA *0£2 


STQ- 


OFFSTF 


1393 P0 3FB 5*EF 


RTJ- 


(ERR0R7) 


139*i P03FC C0E2 


LDA- 


OFFSTF 


1395 P03FD OFCF 


ALS 


15 


1396 P03FE 0125 


SAP 


S6Q0C-*-l 


1397 P03FF E0D9 


LDQ- 


EOFFLAG 


1398 PQ*00 0152 


SQN 


2 


1399 P0*01 5*06 


RTJ- 


(JUMP) 


1*00 PQ*02 1807 


JMP» 


S60OB 


1401 P0403 18CA 


JMP» 


LOOP60 


1402 P040* C009 S60DG LDA- 


EOFFLAG 


1403 P0405 0101 


SAZ 


S600Ci-*-l 


1*0* P0406 1811 


JNP* 


S60E 


1405 PQ*07 54E8 S60DC1 RTJ- 


(IC100) 


1*06 P0408 1805 


JMP» 


S60OA 


1407 P0*09 OA05 S6003 ENA 


5 


1408 P040A 5*F8 


RTJ- 


(GENERATE) 


1*09 P040B D009 


RAO- 


EOFFLAG 


1410 P040C 18C1 


JMP» 


LOOP60 


1411 P040O 0A07 S60DA ENA 


7 


1*12 PO*OE 90F9 


SU3- 


SEC 


1413 P040F 0101 


SAZ 


1 


1414 P0410 18BD 


JMP* 


LOOP60 


1*15 P0*11 C82B 


LOA» 


RESYNF 


1*16 P0*12 0101 


SAZ 


S600Al-*-l 


1*17 P0*13 188A 


JMP* 


LOOP60 


1*18 P0*1* 0A03 S600A1 ENA 


3 


1*19 P0*15 5*F8 


RTJ- 


(GENERATE) 


1*20 P0*16 18B7 


JHP* 


LOOP60 


1*21 P0*17 5800 S6AE RTJ 


OFFSET 


P0*18 0628 
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WAIT FOR EOP INTERRUPT. 
ERROR E. f ALARM INTERRUPT. 

SKIP IF 80 COLUMNS OUTPUTTEO. 

ACTUAL COLUMN COUNT 



EXPECTED COLUMN COUNT =80. 

3 STOPS. 

ERROR 11* WRONG COLUMN COUNT. 



SET Q06 (STATION 21. 

GET STATION 2 STATUS. 

EXPECT EOP, INTERRUPT, READY. 



CHECK WHETHER 8 COLUMNS. 
CHECK WHETHER ALARM INTERRUPT. 
CHECK WHETHER EXPECTED STATUS. 
CLEAR OFFSET FLAG IF OKAY. 
SET OFFSET FLAG IF ERROR. 

ERROR 7, UNEXPECTED STATUS. 



SKIP IF CARO OKAY. 



CHECK STOP/JUMP BIT 15. 

EXIT LOOP IF SET. 

ATTEMPT TO PUNCH PATTERN AGAIN. 

SKIP IF NOT END OF FILE CARD 

INCREMENT LOOP COUNTER 
PUNCH 100 CARDS. 

GENERATE PATTERN 5 (EOF). 

SET EOF FLAG. 

PUNCH END-OF-FILE CARD. 

CHECK WHETHER SECTION 7. 

PUNCH SHIFTEO-ZERO CARD IF NOT. 

ARE RESYNC CARDS TO BE PUNCHED 

YES 

NO 
GENERATE NEW RANDOM PATTERN. 

OFFSET END-OF-FILE CARD. 



01371 
01372 
01373 
01374 
01375 
01376 
01377 
01378 
01379 
01380 
01381 
01382 

01383 
01384 
01385 

01386 

01387 

01386 

01389 

01390 

01391 

01392 

01393 

01394 

01395 

01396 

01397 

01398 

01399 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01408 

01409: 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01418 

01419 

01*20 

01421 
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CRPAOD 


1422 


P0419 


OAiO 


1423 


P041A 


5406 


1424 


P041B 


1832 


1425 


P041C 


C0F9 


1426 


P041D 


09F8 


1427 


P041E 


0117 


1428 


P041F 


C810 


1429 


P0420 


0115 


1430 


P0421 


DRIB 


1431 


P0422 


0A04 


1432 


P0423 


54F8 


1433 


P0424 


0844 


1434 


P0425 


18A3 



PAGF. 


39 


ENA 


110 


RTJ- 


(JUMP) 


JMP* 


LOOP60 


LDA- 


SEC 


INA 


-7 


SAN 


S£C6B-*-i 


LOA* 


RESYNF 


SAN 


SEC6B-*-l 


RAO* 


RESYNF 


ENA 


4 


RTJ- 


(GENERATE) 


CLR 


A 


JMP* 


SEC6A1 



OATE* 01/04/75 



CHECK STOP/ JUMP BIT 4. 
PUNCH MORE EOF CAROS IF SET. 



IS THIS SECTION 7 

YES 
HAS RANDOM JUST COMPLETED 

YES 



01422 
01423 
01424 
01425 
01426 
01427 
01428 
01429 
01430 
01431 
01432 
01433 
01434 



1436 



•END OF SECTION 6 



1438 


P0426 


EOFA 


SEC6H 


LDQ- 


EQUIP 


1439 


P0427 


0D40 




INQ 


J40 


1440 


P0428 


0A01 




ENA 


1 


1441 


P0429 


0302 




OUT 


2 


1442 


P042A 


iao4 




JMP* 


SEC6C 


1443 


PQ42B 


54EC 




RTJ- 


(ERROR4) 


1444 


P042C 


54ED 




RTJ- 


(ERROR?) 


1445 


P042O 


18F8 




JMP* 


SEC6B 


1446 


P042E 
P042F 


5800 
034C 


SEC6U 


RFJ 


ENDSEC 


1447 


P0430 


1807 




JMP* 


SEC60 


1448 


P0431 


C0F9 




LDA- 


SEC 


1449 


P0432 


C9F8 




INA 


-7 


1450 


P0433 


0112 




SAN 


2 


1451 


P0434 
P0435 


18 00 
OOCB 




JMP 


SEC8 


1452 


P0436 


1807 




JMP* 


SEC 7 


1453 


PQ437 


C0F9 


SECfcD 


LOA- 


SEC 


1454 


P0438 


09F8 




INA 


-7 


1455 


P0439 


0101 




SAZ 


1 


1456 


P043A 


1882 




JMP* 


SEC6 


1457 


P043B 


1802 




JMP* 


SEC7 


1458 


P043C 


0000 


RESYNF 


NUM 






EQ. NO., Q00 SET. 

SET Q06 (STATION 21. 

SET A00. 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

END-OF- SECT ION STOP. 



GO TO NEXT SECTION. 



REPEAT SECTION. 



NONZERO IMPLIES PUNCH RESYNC PTN 



01436 

01438 
01439 
01440 
01441 
01442 
01443 
01444 
01445 
01446 

01447 
01448 
01449 
01450 
01451 

01452 
01453 
01454 
01455 
01456 
01457 
01458 
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1460 






1461 






1462 






1464 






1465 


P043D 


CBOO 




PQ43E 


Fees 


1466 


P043F 


A072 


1467 


P0440 


0112 


1468 


P0441 


1800 




P0442 


OOBE 


1469 


P0443 


0A07 


1470 


P0444 


60F9 


1471 


P0445 


0A03 


1472 


P0446 


54F8 


1473 


P0447 


CQFB 


1474 


F0448 


0112 


1475 


P0449 


1800 




P044A 


FF7C 


1476 


P044B 


0844 


1477 


P044C 


6009 


1478 


P0440 


60E2 


1479 


P044E 


0C40 


1480 


P044F 


4000 


1482 






1483 






1484 






1485 






1486 






1487 


P0450 


COOO 




P0451 


08B1 


1488 


P0452 


6800 




P0453 


070D 


1489 


P0454 


EQFA 


1490 


P0455 


QO40 


1491 


P0456 


C0E2 


1492 


P0457 


0FC8 


1493 


PQ458 


8000 




P0459 


0099 


1494 


P045A 


0302 


1495 


P045B 


1804 


1496 


P045C 


54 EC 


1497 


P045D 


54E0 


1498 


P045E 


18F5 


1499 


P045F 


54EA 


1500 


P0460 


54EB 


1501 


P0461 


COOO 




P0462 


0O60 
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♦SECTION 7 - BUFFERED OUTPUT 
♦77777777777777777777777777777777777777777777777777777777777777777777777 



♦INITIALIZE SECTION 7 
SEC7 LOA SECTOT 



SEC7A 



ANQ- 


CONST+7 


SAN 


2 


JMP 


SEC8 


ENA 


7 


STA- 


SEC 


ENA 


3 


RTJ- 


(GENERATE) 


LOA- 


CHAN 


SAN 


2 


JMP 


SEC6A 


CLR 


A 


STA- 


EOFFLAG 


STA- 


OFFSTF 


ENQ 


$40 


STQ- 


STATION 



SECTION PARAMETER. 

CHECK BIT 7. 

GO TO NEXT SECTION IF NOT SET. 

SAVE SECTION NO. FOR ERRORS. 

GENERATE PATTERN 3 (RANOOM1 . 

CHECK WHETHER H = 0. 

GO TO SECTION 6 IF NO 1706. 



CLEAR EOF FLAG. 
CLEAR OFFSET FLAG. 
SET Q06 (STATION 2). 



♦SECTION 7, LOOP - PUNCH 100 RANDOM CARDS AND AN EOF CARO. 

♦ SELECT CLEAR, FEED, EOP AND ALARM INTERRUPTS ON PUNCH, EXPECT 

♦ REPLY. INITIATE 80-WORD BUFFERED OUTPUT. WHEN 1706 BECOMES 

♦ NOT BUSY EXPECT 1706 CURRENT WORD ADDRESS TO BE FIRST WORD 

♦ ADDRESS + 80. EXPECT NO ALARM INTERRUPT. 
LDA =XBUFFOUTf80 



LOOP70 



S70A 



S70B 



STA 


8UFFOUT-1 


LDQ- 


EQUIP 


INQ 


$40 


LOA- 


OFFSTF 


ALS 


8 


ADO 


=N$0099 


OUT 


2 


JMP^ 


S70B 


RTJ- 


(ERR0R4) 


RTJ- 


(ERR0R5) 


JMP» 


S70A 


RTJ- 


(INITEOP) 


RTJ- 


(INITALARM) 


LDA 


=XBUFFOUT-l 



STORE AT FIRST WORD ADDRESS -1. 

EQ.NO., Q00 SET. 

SET Q06 (STATION 2). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07, A04, A03, AND A00. 

CLEAR,FEEO,EOP AND ALAR* INTS. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

INITIALIZE EOP INTERRUPT. 

INITIALIZE ALARM INTERRUPT. 



01460 
01461 
01462 



01464 
01465 

01466 
01467 
01468 

01469 
01470 
01471 
01472 
01473 
01474 
01475 

01476 
01477 
01478 
01479 
01480 



01482 
01483 
01484 

01485- 
01486 
01487 

01466 

01489 
01490 
01491 
01492 
01493 

01494 
01495 
01496 
01497 
01498 
01499 
01500 
01501 
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1502 


P0463 


EOFA 


1503 


P0464 


0O3F 


1504 


P0465 


F077 


1505 


P0466 


03FE 


1506 


P0467 


54E5 


1507 






1508 


P0468 


0AF5 


1509 


P0469 


6006 


1510 


P046A 


5800 




P046B 


0453 


1511 


P046C 


54E5 


1512 


P0460 


COOB 


1513 


P046E 


0116 


1514 


P046F 


O0D6 


1515 


■ P- 0470 


C006 


1516 


P0471 


0101 


1517 


P0472 


18F7 


1516 


P0473 


54F3 


1519 


P0474 


180C 


1520 


P0475 


CO 05 


1521 


P0476 


60 OF 


1522 


P0477 


E800 




P0478 


06E8 


1523 


P0479 


40EO 


1524 


P047A 


0874 


1525 


P0473 


0104 


1526 


P047C 


0C13 


1527 


P0470 


0A10 


1528 


P047E 


5800 




P047F 


0501 


1529 


P0480 


0C40 


1530 


P0481 


54E6 


1531 


P0482 


BOOO 




P0483 


0015 


1532 


P0484 


OCFO 


1533 


P0485 


FOOB 


1534 


P0486 


fcoc 


1535 


P0487 


0832 


1536 


P0488 


014A 


1537 


P0489 


0C01 


1538 


P048A 


40E2 


1539 


P048B 


54EF 


15<»0 


P048C 


54F6 


1541 


P048D 


C009 


1542 


P048E. 


0113 


1543 


P048F 


CU7A 


1544 


P0490 


5406 


1545 


P0491 


1807 


1546 


P0492 


18B0 


1547 


P0493 


40E2 


1548 


P0494 


C009 


1549 


P0495 


0116 


1550 


P0496 


54E8 



S70C 



S70D 



S70E 



S70EA 



PAGE 


41 


LOQ- 


EQUIP 


INQ 


S3F 


ADQ- 


CONST+12 


OUT 


-1 


RTJ- 


(SMH) 


ENA 


-10 


STA- 


TIME 


RTJ 


MILLT 


RTJ- 


(SMM) 


LOA- 


EOPIF 


SAN 


S700-»-l 


RAO- 


TIME 


LOA- 


TIME 


SAZ 


1 


JMP* 


S70C 


RTJ- 


(ERRORB) 


JMP» 


S70E 


LDA- 


BOCCHA 


STA- 


ACT 


LOQ 


BUFFOUT-1 


STQ- 


EXP 


EAQ 


A 


SAZ 


S70E-»-l 


ENQ 


$13 


ENA 


$10 


RTJ 


ERROR 


ENQ 


$40 


RTJ- 


(STATUS) 


EOR 


*N$0015 


E.NQ 


-2 


AOQ- 


EOPIF 


AOQ- 


ALAIF 


AAQ 


Q 


SQZ 


S70EA-»-l 


ENQ 


1 


S TO- 


OFFSTF 


RT J- 


(ERR0R7J 


RTJ- 


(ERRORE) 


LDA- 


EOFFLAG 


SAN 


3 


LDA- 


CONST+15 


RTJ- 


(JUMP) 


JMP* 


S70EB 


JMP* 


LOOP70 


STQ- 


OFFSTF 


LOA- 


EOFFLAG 


SAN 


S70F-»-l 


RTJ- 


(IC100) 



DATE! 01/04/75 



EQ. NO., Q00 SET. 

SET Q06 (STATION 2). CLEAR Q00. 

H=Oi»,09,OR OE FOR BUFFEREO WRITE 

INITIATE BUFFERED OUTPUT. 

GO TO MONITOR. RETURN OCCURS 

AFTER 1706 BECOMES NOT BUSY. 

INITIALIZE TIME COUNTER. 
DELAY 1 NILLI-SECONO. 

GO TO MONTTOR AND BACK. 



WAIT 6 MSECS MAX FOR EOF INT. 



ERROR B, NO EOP INTERRUPT. 

GET BDC CURRENT WORD AOORESS. 
SAVE FOR ERROR MESSAGE. 



COMPARE WITH EXPECTED ADDRESS. 

ERROR 13, UNEXPECTED AOORESS. 
3 STOPS. 



SET Q06 (STATION 21. 

GET STATION 2 STATUS. 

EXPECT EOP t INTERRUPT, READY. 



CHECK WHETHER ALARM INTERRUPT. 
CHECK WHETHER UNEXPECTED STATUS. 
SKIP IF OKAY. 



SET OFFSET FLAG IF ERROR. 
ERROR 7, UNEXPECTED STATUS. 
ERROR £, ALARM INTERRUPT. 



CHECK STOP/ JUMP BIT 15. 

EXIT LOOP IF SET. 

ATTEMPT TO PUNCH PATTERN AGAIN. 

CLEAR OFFSET FLAG. 

SKIP IF EOF CARD. 
INCREMENT LOOP COUNT. 



01502 
01503 
01504 
01505 
01506 
01507 
01506 
01509 
01510 

01511 
01512 
01513 
01514 
01515 
01516 
01517 
01516 
01519 
01520 
01521 
01522 

01523 
01524 
01525 
01526 
01527 
01528 

01529 
01530 
01531 

01532 
01533 
01534 
01535 
01936 
01537 
01538 
01539 
01540 
01541 
01542 
01543 
01544 
01545 
01546 
01547 
01548 
01549 
01550 
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DATE1 0i/Q*/75 



1551 


P0*97 


18A0 


1552 


PD*98 


00 09 


1553 


PD*99 


OA05 


155*» 


P0*9A 


5*F8 


1555 


P0*9B 


18B* 


1556 


PQ*9C 


5800 




P0*9D 


05A3 


1557 


PQ*9E 


0A1Q 


1558 


P0*9F- 


5*06 


1559 


PQ*A0 


18AF 


1561 


P0*A1 


08** 


1562 


P0*A2 


60 09 


1563 


P0*A3 


60E2 


156* 


PO*A* 


0A0<> 


1565 


P0*A5 


5*F8 



... isb*,. 
1567 


.•ho«m«»- 


*>«»ro 


1568 






1569 






1570 


P0*A6 


EOFA 


1571 


P0*A7 


00*0 


1572 


P0*A8 


CO £2 


1573 


P0*A9 


0FC8 


157* 


PO*AA 


8000 




PO*AB 


0099 


1575 


PO*AC 


0302 


1576 


PO*AD 


180* 


1577 


PO*AE 


5*EC 


1578 


PO*AF 


5*ED 


1579 


PO*BO 


18F5 


1580 


P0*81 


5*EA 


1581 


P0*B2 


5*EB 


1582 


PQ*B3 


COOO 




PO*B* 


OB60 


1583 


P0*B5 


EOFA 


158* 


P0*B6 


0O3F 


1585 


P0*B7 


F077 


1586 


P0*B8 


03FE 


1587 


P0*B9 


5*E5 


1588 


PO*BA 


CQDB 


1589 


PO*BB 


0112 


1590 


PO*BC 


18FD 


1591 


P0*BO 


1813 


1592 


PO*BE 


COO* 


1593 


PO*BF 


600F 


159* 


PO*CO 


AOQO 




P0«»C1 


0301 


1595 


P0*C2 


BOOO 


■ •-• 


P0*C3 


0201 




60271300 F 



S70EB 



S70F 



JMP» 

RAO- 

ENA 

RTJ- 

JHP» 

RTJ 

ENA 

RTJ- 

JMP» 



CLR 
STA- 

STA- 

ENA 

RTJ- 



SEC7A 
EOFFLAG 

5 

(GENERATE) 

LOOP70 

OFFSET 

$10 

(JUMP) 

LOOP70 



A 

EOFFLAG ~ : 

OFFSTF 

* 

{GENERATE) 



PUNCH 100 RANDOM CARDS. 
SET END-OF-FILE FLAG. 

GENERATE PATTERN 5 (END-OF-FILE) 

PUNCH EOF CARD. 

OFFSET END-OFFILE CARD. 



CHECK STOP/ JUMP BIT *. 
PUNCH MORE EOF CARDS IF SET. 



CLEAR EOF FLAG. • - - - -■■•■' - 

CLEAR OFFSET FLAG. 

OENERATE PATTERN * (HALF~GARDS>^ 



♦SECTION 7, LOOP 1 - PUNCH 10 HALF-CARDS FOLLOWED BY EOF CARD. 



SAME AS SECTION 7, LOOP 0. EXPECT 1706 STATUS TO BE REPLY AND R 
WHEN EOF INTERRUPT OCCURS. 



L00P71 



>71A 



S71B 



L DO- 
ING. 
LDA- 
ALS 
ADD 

OUT 

JMP» 

RTJ- 

RTJ- 

JMP» 

RTJ- 

RTJ- 

LDA 

LDO- 

INQ 

ADO- 

OUT 

RTJ- 

LDA- 

SAN 

JMP* 

JMP* 

LDA- 

STA- 

ANO 

EOR 



EQUIP 

$*0 

OFFSTF 

8 

=N«0099 

2 

S71A 

(ERRORS) 

(ERRORS) 

L00P71 

(INITEOP) 

(INITALARM) 

=XRUFFOUT-l 

EQUIP 

$3F 

CONST+12 

-1 

(SMM) 

EOPIF 

S71B-»-l 

*-2 

S71C 

BDCSTAT 

ACT 

=N$301 

=N$201 



EQ. NO., Q00 SET. 

SET Q06 (STATION 2). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07, AO*, A03, AND AOO. 

CLEAR, FEED* EOF AND ALARM INTS. 
EXPECT REPLY. 

ERROR *, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 



EQ. NO., Q00 SET. 

SET Q06 (STATION 2), CLEAR Q00 

W=Q*,09,0R OE FOR BUFFERED WRITE 

GO TO MONITOR TILL 06 NOT BUSY. 

WAIT FOR INTERRUPT 

BOC STATUS UPON INTERRUPT. 
SAVE FOR ERROR MESSAGE. 
CHECK REPLY,REJECT, READY BITS 



EXPECT REPLY, READY 



01551 
01552 
01553 
01554 
01555 
01556 

01557 
01558 
01559 



01561 
01562 
01563 
0156* 
DIM* 



01567 
01566 
01569 
01570 
01571 
81572 
01573 
0157* 

01575 
01576 
01577 

01578 
01579 
01580 
01581 
01582 

01583 
0158* 
01585 
01586 
01587 
01588 
01589 
01590 
01591 
01592 
01593 
0159* 

01595 
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1596 


P04C4 


54F7 




RTJ- 


(ERRORF) 


1597 


P04C5 


CO 05 




LOA- 


BOCCWA 


1598 


P0ifC6 


600F , 




STA- 


ACT 


1599 


P04C7 
P04C8 


EOOO 
OBBl P 




LDQ 


=X8UFFOUT+80 


1600 


P04C9 


40E0 




STQ- 


EXP 


1601 


P04CA 


087«» 




EAQ 


A 


1602 


P04CB 


0104 




SAZ 


S71C-»-l 


1603 


P04CC 


0C13 




ENQ. 


$13 


1604 


P04CO 


0A10 




ENA 


sin 


1605 


P04CE 
P04CF 


5800 
0581 




RTJ 


ERROR 


1606 


P04D0 


0C40 


S71C 


FNQ 


$40 


1607 


P04D1 


54E6 




RTJ- 


(STATUS) 


1608 


P0«»D2 
P0«*D3 


BOOO 
0015 




EOR 


=N$0015 


1609 


P04O«f 


OCFE 




ENQ 


-1 


1610 


P04D5 


FODB 




ADQ- 


EOPIF 


1611 


PQ4D6 


0852 




TCQ 


Q 


1612 


P0407 


FOOC 




ADQ- 


ALAIF 


1613 


P04D8 


0832 




AAQ 


Q 


1614 


P04D9 


014A 




SQ7 


S71CA-*-l 


1615 


P04DA 


0C01 




ENQ 


1 


1616 


P04D3 


40 E2 




STQ- 


OFFSTF 


1617 


P040C 


54EF 




RTJ- 


(ERR0R7) 


1618 


P04DD 


5*»F6 




RTJ- 


(ERRORE) 


1619 


POkQZ 


C009 




LDA- 


EOFFLAG 


1620 


PQkDF 


0113 




SAN 


3 


1621 


P04EQ 


C07A 




LDA- 


CONST4-15 


1622 


PO^iEi 


5406 




RTJ- 


(JUMP) 


1623 


P0<»E2 


1807 




JMP» 


S71CB 


162<f 


P0*tE3 


18C2 




JMP» 


L00P71 


1625 


P04EV 


40E2 


S71CA 


STQ- 


OFFSTF 


1626 


P0»»E5 


CQD9 




LOfl- 


EOFFLAG 


1627 


P04E6 


0116 




SAN 


S71D-*-l 


1628 


P0<»E7 


54E7 




RTJ- 


(IC1Q) 


1629 


P04E8 


18B0 




JMP* 


LOOP71 


1630 


P0«»E9 


D0D9 


S71C!3 


RAO- 


EOFFLAG 


1631 


P0<«EA 


0A05 




ENA 


5 


1632 


P0*»E3 


5<*F8 




RTJ- 


(GENERATE! 


1633 


P04EC 


18B9 




JMP* 


L00P71 


1634 


P0<fEO 
P04EE 


5800 
0552 


S71D 


RTJ 


OFFSET 


1635 


P0«»EF 


0A10 




ENA 


$10 


1636 


P04F0 


5406 




RTJ- 


(JUMP) 


1637 


P04F1 


13 B4 




JMP* 


LOOP71 


1639 






*FNQ OF 


SECTION 


7 


16<f0 


P04F2 


EOFA 


SFC78 


LDQ- 


EQUIP 


1641 


P0«»F3 


0040 




INQ 


340 


1642 


P0<»F<» 


GA01 




ENA 


1 



OATEI 01/0*»/75 



ERROR F, WRONG BOC STATUS. 
GET BDC CURRENT WORD AOORESS. 
SAVE FOR ERROR MESSAGE 



COMPARE WITH EXPECTED ADDRESS. 

ERROR 13, UNEXPFCTEO ADDRESS 
3 STOPS. 



SET Q06 (STATION 2). 
GFT STATION 2 STATUS. 
EXPECT EOP, INTERRUPT, READY. 



CHECK WHETHER EOP INTERRUPT. 
CHECK WHETHER ALARM INTERRUPT. 
CHECK WHETHER UNEXPECTED STATUS. 
SKIP IF OKAY. 

SET OFFSET FLAG IF ERROR. 
ERROR 7, UNEXPECTED STATUS. 
ERROR E, ALARM INTERRUPT. 



CHECK STOP/JUMP BIT 15. 

EXIT LOOP IF SET. 

ATTEMPT TO PUNCH PATTERN AGAIN. 

CLEAR OFFSET FLAG. 



INCREMENT LOOP COUNTER 
PUNCH 10 HALF-CARDS. 
SET FND-OF-FILE FLAG. 

GENERATE PATTERN 5 (EOF). 

PUNCH EOF CARD. 

OFFSET ENO-OF-FILE CARD. 



CHECK STOP/ JUMP BIT If. 
PUNCH MORE EOF CARDS. 



EQ. NO., Q00 SET. 
SET Q06 (STATION 2). 
SET A00. 



01596 
01597 
01598 
01599 

01600 
01601 
01602 
01603 
01604 
01605 

01606 
01607 
01608 

01609 
01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 
01618 
01619 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01628 
01629 
01630 
01631 
01632 
01633 
01634 

01635 
01636 
01637 



01639 
01640 
01641 
01642 
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CRPAOD 


1643 


PQ4F5 


0302 


1644 


P04F6 


1804 


1645 


P04F7 


54EC 


1646 


PQ4F8 


54ED 


1647 


P04F9 


18F8 


1648 


P04FA 


5800 




P04FB 


0280 


1649 


PQ4FC 


1802 


1650 


P04FO 


1803 


1651 


P04FE 


1800 




P04FF 


FF30 



SEC7C 



PAGE 


4U 


OUT 


2 


JMP» 


SEC7C 


RTJ- 


(ERRORS) 


RTJ- 


(ERRORS) 


JHP* 


SEC70 


RTJ 


ENOSEC 


JHP» 


**2 


JHP* 


SEC8 


JMP 


SEC7 



OATEJ 01/04/75 



CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT 

END OF SECTION STOP. 



REPEAT SECTION. 



01643 
01644 
01645 
01646 
01647 
01648 

01649 
01650 
01651 
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1653 
1654 
1655 



'SECTION 8 - READ WHEN NO REJECT 01654 

'88888 888888 88888888888 888888 68 3888 88888883 888888888 886 88888888 888888888 01655 



1657 
1658 

1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 



P050Q 
P0501 
P0502 
P05Q3 
P0504 
PQ503 
P0506 
P05O7 
P0503 
P0509 
P050A 
P050Q 



caoo 

FBC5 
A 73 
Clll 
18 59 
0A08 
00 F9 
OC20 
40 OD 
0844 
6009 
60E2 



♦INITIALIZE SFCTION 8 
SEC8 LDA SECTOT 



A NO- 
SAN 
JMP» 
ENfl 
STA- 
ENQ 
STQ- 
CLR 
STA- 
STA- 



CONST+8 

1 

SEC9 

8 

SEC 

$20 

STATION 

A 

EOFFLAG 

OFFSTF 



GET SECTION PARAMETER. 

CHECK BIT 8. 

GO TO SECTION 9 IF CLEAR. 

SAVE SECTION NO. FOR ERRORS. 
SET QU5 (STATION 1). 



CLEAR ENO-OF-FILE FLAG. 
CLEAR OFFSET FLAG. 



01657 
0165S 

01659 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01668 



1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 

1680 
1681 
1682 
1683 
1684 

1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 



P050C 
P050D 
P050E 
P050F 
P051D 
P0511 
P0512 
P0513 
P0514 
P0515 
P0516 
P0517 
P0518 
P0519 
P051A 
P051O 
P051C 
P051O 
P051F 
P051F 
P0520 
P0521 
P052? 
P0523 



OAAF 
6007 
6800 
038O 
ECFA 
0D20 
C0E2 
0FC8 
8000 
0699 
0302 
1804 
54EC 
54E0 
18F5 
54EA 
54E8 
54E5 
COOB 
80OC 
01G3 
54F6 
54F4 
1818 



♦SECTION 8, LOOP - REAO THRU END-OF-FILE CARO. 

* SFLECT CLEAR, FEED, EOP+ALARM INTERRUPT ON RLADER, EXPECT 

* REPLY. GO TO MONITOR ANO OACK, EXPECT NO INTERRUPT. 

* ATTEMPT DATA INPUT. RETURN TO MONITOR IF EXTERNAL REJECT. 

* IF REPLY, STORE DATA AND INCREMENT COLUMN COUNT. GET 

* STATUS, EXPECT READY AND BUSY. CHECK DATA AFTER 80TH 

* INPUT. WAIT FOR EOP INTERRUPT. 
LOOPED ENA -80 

STA- COLUMN INITIALIZE COLUMN COUNTER. 

RTJ DLYPAR OELAY 



SfiOA 



SflOB 
S80C 



LDQ- 
INO 
LOA- 
ALS 
A on 

our 

JMP* 

RTJ- 

RTJ- 

JMP» 

RTJ- 

RTJ- 

RTJ- 

LDA- 

ADO- 

SAZ 

RTJ- 

RTJ- 

JMP* 



EQUIP 

$20 

OFFSTF 

8 

=N$0U99 

2 

S8 0B 

(ERRORS) 

(ERRORS) 

S80A 

(INITEOP) 

(INITALARM) 

(SMM) 

EOPIF 

ALAIF 

S80D-*-l 

(ERRORF) 

(ERR ORG) 

S80H 



EQ. NO., Q00 SET. 

SET Q05 (STATION 1). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07, A04t A03, AND AOO. 

FEEO, CLEAR, EOP+ALARM INTS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERRO*. 5, EXTERNAL REJECT. 
HANG ON REJECT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR ANO BACK. 



SKIP IF NO UNEXPECTED INTERRUPT. 
ERROR E, ALARM INTERRUPT. 
ERROR C, EOP INTERRUPT. 



01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01678 
01679 

01680 
01681 
01682 
01683 
01684 

01685 
01686 
01687 
01688 
01689 
01690 
01691 
01692 
01693 
01694 
01695 
01696 
01697 
01698 
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1699 


P052«t EOFA 


S80O 


LDQ- 


EQUIP 


1700 


P0525 0D1F 




INQ 


S1F 


1701 


P0526 0202 




INP 


2 


1702 


P0527 1804 




JMP» 


S80E 


1703 


P0523 54EC 




RTJ- 


CERROR4) 


1704 


P0529 18F3 




JMP» 


S80C 


1705 


P052A 1817 




JMP» 


S80I 


1706 


P052B E007 


S80E 


LOQ- 


COLUMN 


1707 


P052C 6A00 
P052D 0633 




STA 


BUFFIN*80,Q 


1708 


P052E D0D7 




RAO- 


COLUMN 


1709 


P052F 0C20 




ENQ 


$20 


1710 


P0530 54E6 




RTJ- 


(STATUS) 


1711 


P0531 BOOO 
P0532 0003 




EOR 


=N$0003 


1712 


P0533 0102 




SAZ 


S80F-*-l 


1713 


P0534 54EF 




RTJ- 


(ERR0R7) 


1714 


P0535 1806 




JMP* 


S80H 


1715 


P0536 C007 


S80F 


LOA- 


COLUMN 


1716 


P0537 0101 




SAZ 


S80G-*-l 


1717 


P0538 18E4 




JMP» 


S80C 


1718 


P0539 5800 
P053A 049B 


S80G 


RTJ 


CHECK 


1719 


P053B CODB 


SBOH 


LOA- 


EOPIF 


1720 


P053C 0114 




SAN 


S80I-»-l 


1721 


P053O COOC 




LDA- 


ALAIF 


1722 


P053E 011A 




SAN 


S80J-6-»-l 


1723 


P053F 54E5 




RTJ- 


(SMM1 


1724 


PQ540 18FA 




JMP» 


S80H 


1725 


P0541 C800 
P0542 0357 


S80I 


LDA 


EOP IS 


1726 


PQ543 60DF 




STtt- 


ACT 


1727 


P0544 AOOO 




ANO 


=N$F87F 




P0545 FB7F 








1728 


P0546 BOOO 




EOR 


=N$0015 




P0547 0015 








1729 


P0548 54EF 




RTJ- 


(ERR0R7) 


1730 


P0549 C07A 




LDA- 


CONST+15 


1731 


P054A 5406 




RTJ- 


(JUMP) 


1732 


P054B 1804 




JMP* 


S8 0J 


1733 


P054C C0D9 




LDA- 


EOFFLAG 


1734 


P054O 0111 




SAN 


S8 0J-*-l 


1735 


P054E 18BD 




JMP» 


LOOP80 


1736 


P054F 0A10 


S80J 


ENA 


$10 


1737 


P0550 5406 




RTvl- 


(JUMP) 


1738 


P0551 18UA 




JMP* 


LOOP80 


1740 




*£N0 OF 


SECTION 8 




1741 


P0552 EOFA 


SEC8A 


LDQ- 


EQUIP 


1742 


P0553 0D2O 




INQ 


$20 


1743 


P0554 0AG1 




ENA 


1 



DATE! 01/04775 



EQ. NO., Q00 SET. 

SET Q05 (STATION l) t CLEAR Q00. 

ATTEMPT DATA INPUT. 

REPLY. 

ERROR 4, INTERNAL REJECT. 

EXT. REJECT, GO TO MONITOR. 



STORE DATA. 

INCREMENT COLUMN COUNTER. 
SET Q05 (STATION 1). 
GET STATION 1 STATUS. 
EXPECT READY AND BUSY STATUS. 



ERROR 7, UNEXPECTED STATUS. 



GO READ NEXT COLUMN. 

80 COLUMNS READ, CHECK DATA. 



SKIP IF MOTION FAILURE. 

WAIT FOR EOP INTERRUPT. 

GET STATUS UPON EOP INTERRUPT. 

SAVE FOR ERROR MESSAGE. 
IGNORE EOF AND PROTECT BITS. 

EXPECT EOP, INTERRUPT, READY. 

ERROR 7, UNEXPECTED STATUS. 

CHECK STOP/ JUMP BIT 15. 
EXIT LOOP IF SET. 

EXIT LOOP IF EOF CARD. 
LOOP IF NOT. 

CHECK STOP/JUHP BIT 4. 
LOOP IF SET. 



EQ. NO., Q00 SET. 
SET Q05 (STATION 1). 

SET A00. 



01699 
01700 
01701 
01702 
01703 
01704 
017D5 
01706 
01787 

01708 
01709 
01710 
01711 

01712 
01713 
01714 
04715 
01716 
01717 
01718 

01719 
01720 
01721 
01722 
01723 
01724 
01725 

01726 
01727 

01728 

01729 
01730 
01731 
01732 
01733 
01734 
01735 
01736 
01737 
01738 



01740 
01741 
01742 
01743 
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1744 PQ555 

1745 P0556 



0302 
1804 

1746 PQ557 54EC 

1747 P0558 54ED 

1748 P0559 18F8 

1749 P055A 5800 
P055B 0220 

1750 P055C 18A3 



SE(W 



PAGE 


47 




OUT 




2 


JMP* 




SEC8B 


RTJ- 




(ERRORS) 


RTJ- 




(ERR0R5) 


JHP* 




SEC8A 


RTJ 




ENDSEC 



DATE* 01/04/75 



JMP* 



SEC 8 



CLEAR CONTROLLER. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
END-OF-SECTION STOP 

REPEAT SECTION 



017** 
01745 
017*6 
017*7 
017*8 
017*9 

01750 
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DATE! 01/04/75 



1752 
1753 
175* 



***«*¥***««***»*«***** «**«*** *««««»***********************«»* *♦♦♦*♦»*♦»* 01752 
♦SECTION 9 - READ WHEN DATA STATUS 01753 

♦99999999999999999999999999999999999999999999999999999999999999999999999 0175* 



1756 
1757 

1758 
1759 
1760 
1761 
1762 
1763 
176* 
1765 
1766 
1767 



PQ55D 
P055E 
P055F 
P0560 
P0561 
P0562 
P0563 
P056* 
P0565 
P0566 
P0567 
P0568 



C800 
FAA8 
A0 7* 
0111 
186* 
0A09 
60F9 
OC20 
*QOO 
08** 
60 09 
60E2 



•INITIALIZE SECTION 9 
SEC9 IDA SECTOT 



AND- 


CONST+9 


SAN 


1 


JMP* 


SECA 


ENA 


9 


STA- 


SEC 


ENQ 


$20 


STQ- 


STATION 


CLR 


A 


STA- 


EOFFLAG 


STA- 


OFFSTF 



GET SECTION PARAMETER. 

CHECK BIT 9. 

GO TO NEXT SECTION IF NOT SET. 

SAVE SECTION NO. FOR ERRORS. 
SET Q05 (STATION 1). 



CLEAR END-OF-FILE FLAG. 
CLEAR OFFSET FLAG. 



01756 
01757 

01758 
01759 
O1760 
01761 
01762 
01763 
0176* 
01765 
01766 
01767 



1769 
1770 
1771 
1772 
1773 
177* 
1775 

1776 
1777 
1778 
1779 
1780 

1781 
1782 
1783 
178* 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
179* 
1795 
1796 
1797 



P0569 
P056A 
P056B 
P056C 
P056D 
P056E 
P056F 
P0570 
P0571 
P0572 
P0573 
P057* 
P0575 
P0576 
P0577 
P0578 
P0579 
P057A 
P0578 
P057C 
P057D 
P0 57E 
P057F 
P0580 
P0581 
P0582 
P0583 



OAAF 
6007 
5800 
0330 
EDFA 
0020 
C0E2 
0FC8 
8000 
0D99 
0302 
180* 
5*EC 
5*ED 
18F5 
5*EA 
5*E8 
5*E5 
CflOB 
80OC 
0103 
5*F6 
5*F* 
1823 
0C20 
5*E6 
OFCC 



•SECTION 9, LOOP - READ THRU ENO-OF-FILE CARD 

• SAME AS SECTION 8, LOOP EXCEPT DATA INPUT IS NOT 

• ATTEMPTED UNTIL DATA STATUS OCCURS, AND A REPLY 

• TO DATA INPUT IS EXPECTED. 
LOOP90 ENA -80 

STA- COLUMN INITIALIZE COLUMN COUNTER 

RTJ DLYPAR DELAY 



S90A 



S90B 
S90C 



S90D 



LOQ- 

INQ 

LOA- 

AL3 

ADD 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP* 

RTJ- 

RTJ- 

RTJ- 

LOA- 

ADD- 

SAZ 

RTJ- 

RTJ- 

JMP» 

ENQ 

RTJ- 

ALS 



EQUIP 

$20 

OFFSTF 

8 

=N$0 099 

2 

S90B 

(ERROR*) 

(ERROR5) 

S90A 

(INITEOP) 

(INITALARH) 

(SMM) 

EOPIF 

ALAIF 

S90O-*-l 

(ERRORE) 

CERRORC) 

S90I 

$20 

(STATUS) 

12 



EQ. NO.. Q00 SET. 

SET Q05 (STATION 1). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET AQ7, A0*« A03, AND A00. 

CLEAR, FEEO,EOP+ALARH INTS. 
EXPECT REPLY. 
ERROR *, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT 
HANG ON REJECT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR AND BACK. 



SKIP IF NO UNEXPECTED INTERRUPT. 
ERROR F, ALARM INTERRUPT. 
ERROR C, EOP INTERRUPT. 

SET Q05 (STATION 1). 
GET STATION 1 STATUS 



01769 
01770 
01771 
01772 
01773 
0177* 
01775 

01776 
01777 
01778 
01779 
01780 

01781 
01782 
01783 
0178* 
01785 
01786 
01787 
01788 
01789 
01790 
01791 
01792 
01793 
0179* 
01795 
01796 
01797 
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CRPA0O 


1798 


P0584 


0131 


1799 


P0585 


18F4 


1800 


P0586 


0FC4 


1801 


P0587 


BOOO 




P0583 


OOOB 


1802 


P0589 


0102 


1803 


P058A 


54EF 


1804 


P0588 


1818 


1805 


P058C 


EOFA 


1806 


P058H 


001F 


1807 


P058E 


0202 


1808 


P058F 


18Q4 


1809 


P0590 


54EC 


1810 


P0591 


54E0 


1811 


P0592 


1811 


1812 


P0593 


£007 


1813 


P0594 


6A00 




P0595 


05C8 


1814 


P0596 


0007 


1815 


P0597 


0C20 


1816 


P0598 


54E6 


1817 


P0599 


Boon 




P059A 


0003 


1818 


P059B 


0102 


1819 


P059C 


54EF 


1820 


P059D 


1806 


1821 


P059E 


C0D7 


1822 


P059F 


0101 


1823 


P05AO 


1809 


1824 


P05A1 


5800 




P05A2 


0433 


1825 


P05A3 


COOB 


1826 


P05A4 


0114 


1827 


P05A5 


COOC 


1828 


P05A6 


011A 


1829 


P05A7 


54E5 


1830 


P05A8 


18FA 


1631 


P05A9 


C800 




P05AA 


02EF 


1832 


P05A8 


600F 


1833 


P05AC 


AOOO 




P05AD 


F87F 


1834 


P05AE 


BOOO 




P05AF 


0015 


1835 


P05B0 


54EF 


1836 


P05B1 


C07A 


1837 


P05B2 


5406 


1838 


P05B3 


1604 


1839 


P0 5B4 


CU09 


1840 


P05B5 


0111 


1841 


P05B6 


1882 


1842 


P05B7 


0A10 


1843 


P05B8 


5406 



590F 



s°nr 



S90G 



S90H 



S90I 



S90J 



S90K 



PAGE 
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SAM 


1 


JMP* 


S90C 


ALS 


4 


EOR 


=NSOOOB 


SA7. 


S90E-*-l 


RT.J- 


(ERR0R7) 


JMP» 


S90I 


LDQ- 


EQUIP 


INQ 


SlF 


INP 


2 


JMP* 


S90F 


RTJ- 


(ERR0R4) 


RTJ- 


(ERR0R5) 


JMP* 


S90I 


LUQ- 


COLUMN 


STA 


8UFFIN4-A0,Q 


RAO- 


COLUMN 


EN 


$20 


R.TJ- 


(STATUS) 


EOP 


=N$0003 


SAZ 


S90G-*-l 


RTJ- 


(ERR0R7) 


JMP* 


S90I 


LOA- 


COLUMN 


SAZ 


S90H-*-l 


JMP* 


S90C 


RTJ 


CHECK 


I. HA- 


EOPIF 


SAN 


S90J-*-l 


LOA- 


ALAIF 


SAN 


S90K-6-*-i 


RTJ- 


(SMM) 


JMP* 


S9CI 


LDA 


EOPIS 


STA- 


ACT 


ANO 


=N$F37F 


EOR 


•=N$0015 


RTJ- 


(ERR0R7) 


LUA- 


CONST+15 


RTJ- 


(JUMP) 


JMP* 


S90K 


LOA- 


EOFFLAG 


SAN 


S90K-*-l 


JMP* 


LOOP90 


ENA 


$10 


RTJ- 


(JUMP) 



DATEt 01/04/75 



CHECK BIT 3 (DATA STATUS). 
RFTURN TO MONITOR IF CLFAR. 

EXPECT DATA ,BUSY,REAOY, STATUS. 



ERROR 7, UNEXPECTED STATUS. 

EQ. NO., Q00 SET. 

SET 305 (STATION 1), CLEAR Q00. 

INPUT DATA. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 



STORE DATA. 

INCREMENT COLUMN COUNTER. 
SET Q05 (STATION II. 
GET STATION 1 STATUS. 
EXPECT BUSY AND READY STATUS. 



ERROR 7, UNEXPECTED STATUS. 



GO READ NEXT COLUMN. 

80 COLUMNS READ. CHECK DATA. 



SKIP IF MOTTON FAILURE. 

WAIT FOR EOP INTERRUPT. 

GET STATUS UPON EOP INTERRUPT. 

SAVE FOR ERROR MESSAGE. 
IGNORE EOF AND PROTECT BITS. 

EXPECT EOP, INTERRUPT, READY. 

ERRCR 7, UNEXPECTED STATUS. 

CHECK STOP/JUMP BIT 15. 
EXIT LOOP IF SET. 

EXIT LOOP IF EOF CARD. 
LOOP TO READ MORE CARDS. 

CHECK STOP/ JUMP BIT 4. 



01798 
01799 
01800 
01801 

01802 
01803 
01804 
01805 
01806 
01807 
01808 
01809 
01810 
01811 
01812 
01813 

01814 
01815 
01816 
01817 

01818 
01819 
01820 
01821 
01822 
01823 
01824 

01825 
01826 
01827 
01828 
01829 
01830 
01831 

01832 
01833 

01834 

01835 
01836 
01837 

01838 
01839 
01840 
01841 
01842 
01843 
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OATFl 01/04/75 



1844 P05B9 laAF 



JMP* 



LOOP90 



LOOP IF SET. 



01844 



1846 




♦END OF 


SECTION 9 




1847 P05BA 


EOFA 


SEC9A 


LDO- 


EQUIP 


18<f8 P05B8 


0020 




INQ 


$20 


1849 P05BC 


0A01 




ENA 


1 


1850 P05BD 


0302 




OUT 


2 


1851 P05BE 


1804 




JMP* 


SEC9B 


1852 P05BF 


54 EC 




RTJ- 


CERR0R4) 


1853 P05C0 


54E0 




RTJ- 


CERROR5J 


1854 P05C1 


18F8 




JHP* 


SEC9A 


1855 P05C2 


5800 


SEC9B 


RTJ 


ENDSEC 


P05C3 


0168 








1856 P05C4 


1898 




JMP* 


SEC9 



EQ. NO. 9 QOO SET. 

SET Q05 (STATION 11. 

SET A00. 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR 4» INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

END-OF-SECTION STOP. 

REPEAT SECTION. 



01846 
01847 
01848 
01849 
01850 
01851 
01852 
01853 
01854 
01855 

01856 
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DATEI 01/04/75 



1858 
1859 
1860 



****** *** ****** WW******************** ********* ************* *»*•*#**»♦» 01858 
'SECTION 10 - READ IF DATA INTERRUPT 01859 

*AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 01860 



1862 
1863 

1864 
1865 
1866 
1867 
1868 
1869 

1870 
1871 
1872 
1873 
1874 



P05C5 
P05C6 
P05C7 
P05C8 
P05C9 
P05CA 
P05CQ 
P05CC 
P05Cn 
P05CE 
P05CF 
P05O0 
P05D1 
P05D2 



C800 
FA40 
A075 
0111 
1857 
OAOA 
60F9 
6800 
02CA 
OC20 
40DD 
0844 
6009 
60E2 



•INITIALIZE SECTION 10 
SECA LDA SECTOT 



ANO- 


CONST+10 


SAN 


1 


JMP* 


SECB 


ENA 


10 


STA- 


SEC 


SIA 


TNP 


ENQ 


S20 


STQ- 


STATION 


CLP. 


A 


STA- 


EOFFLAG 


STA- 


OFFSTF 



GET SECTION PARAMETER. 
CHECK BIT 10. 

GO TO NEXT SECTION IF CLEAR. 
SAVE SECTION NO. FOR ERRORS. 

SET 005 (STATION 1>. 



CLEAR ENO-OF-FILE FLAG. 
CLEAR OFFSET FLAG. 



01862 
01863 

01864 
01865 
01866 
01867 
01868 
01869 

01670 
01671 
01872 
01873 
0187% 



1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 

1884 
1885 
1886 
1887 
18Q8 

1889 
1890 
1891. 
1892 
1893 
1891» 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 



P05D3 
P05D4 
P05O5 
P05O6 
P05O7 
P05D3 
P05O9 
P05DA 
P05DB 
P05DC 
P05OD 
P05DE 
P05DF 
P05E0 
P05E1 
P05E2 
P05E3 
PQ5E*» 
P05E5 
P05F.6 
P05E7 
P05E3 
P05E9 
P05EA 



OAAF 
6007 
5800 
02C6 
EOFA 
0020 
C0E2 
0FC8 
8000 
009F 
0302 
1804 
54 EC 
54ED 
18F5 
54E9 
54FA 
54EB 
54F5 
COOC 
010B 
5«*F6 
0844 
600C 



♦SECTION 10, LOOP - READ THRU ENO-OF-FILE CARD. 

* SELECT CLEAR, FEED, ANO ALL INTERRUPTS ON READER, EXPECT REPLY. 

* INPUT AND STORE DATA IN DATA INTERRUPT ROUTINE. 

* WAIT FOR EOP INTERRUPT, EXPECT COLUMN COUNT TO BE 80. 

* EXPECT NO ALARM INTERRUPT. 
LOOPAO ENA -80 

STA- COLUMN INITIALIZE COLUMN COUNTER. 

RTJ DLYPAR DELAY 



SADA 



SAOB 
SAHC 



LDO- 

INQ 

LDA- 

ALS 

ADD 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP* 

RTJ- 

RTJ- 

RTJ- 

RTJ- 

LOA- 

SAZ 

RTJ- 

CLR 

ST/\- 



EQUIP 

$20 

OFFSTF 

8 

=N$009F 

2 

SAOB 

(ERR0R4) 

(ERRORS) 

SAOA 

(INITOATA) 

(INITEOP) 

(INITALARM) 

(SMM) 

ALAIF 

SA0D-*~1 

CERRORE) 

A 

ALAIF 



EQ. NO., Q00 SET. 

SET Q05 (STATION 1). 

GET OFFSET FLAG. 

SET A08 (OFFSET) IF FLAG SET. 

SET A07, A04 THRU A00. 

FECO, CLEAR, ALL INTERRUPTS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
INITIALIZE DATA INTERRUPT. 
INITIALIZE fcOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 
GO TO MONITOR AND BACK. 

SKIP IF NO ALARM INTERRUPT. 
ERROR E, ALARM INTERRUPT. 



01876 
01877 
01878 
01879 
01880 
01881 
01882 
01883 

01884 
01885 
01886 
01867 
01888 

01889 
01890 
01891 
01892 
01893 
01894 
01895 
01896 
01897 
01898 
01899 
01900 
01901 
01902 
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1903 P05EO EOFA 


SAOCA 


LDQ- 


EQUIP 


1904 P05EC 0O20 




INO 


$20 


1905 P05EO OAOA 




ENA 


$A 


1906 P05EE 0302 




OUT 


2 


1907 P05EF 1»1C 




JMP» 


SAOFA 


1908 P05F0 5*EC 




RTJ- 


(ERRORS) 


1909 P05F1 5*iE0 




RTJ- 


(ERR0R5) 


1910 P05F2 18F8 




JNP* 


SAOCA 


1911 P05F3 CODB 


SAOO 


LDA- 


EOPIF 


1912 P05F* 0111 




SAN 


1 


1913 P05F5 18EF 




JMP» 


SAOC 


191V P05F6 C0O7 




LOA- 


COLUMN 


1915 PQ5F7 0109 




SAZ 


SA0E-*-l 


1916 P05F8 0950 




INA 


80 


1917 P05F9 60OF 




STA- 


ACT 


1918 P05FA 0C5O 




ENQ 


80 


1919 P05FB *0£0 




STQ- 


EXP 


1920 P05FC QCli 




ENQ 


$11 


1921 P05FD 0A10 




ENA 


$10 


1922 P05FE 5800 




RTJ 


ERROR 


PQ5FF 0*51 








1923 P0600 1803 




JMP» 


SAOF 


192* P0601 5800 


SAOE 


RTJ 


CHECK 


P0602 03D3 








1925 P0603 C800 


SAQF 


LDA 


EOPIS 


P0604 0295 








1926 P0605 60DF 




STA- 


ACT 


1927 P0606 AOOO 




ANO 


=N$FB7F 


P0607 FB7F 








1928 P0608 ROOD 




EOR 


=N$0015 


P0509 0015 








1929 P060A 5*£F 




RTJ- 


(ERROR7) 


1930 PO6O0 C07A 


SAOFA 


LDA- 


C0NST*15 


1931 P060C 5*»06 




RTJ- 


(JUMP) 


1932 P0600 130* 




JMP* 


SAOG 


1933 P060E C0O9 




LOA- 


EOFFLAG 


193* P060F 0111 




SAN 


SA0G-*-l 


1935 P0610 18C2 




JMP» 


LOOPAO 


1936 P0611 0A10 


SAOG 


ENA 


$10 


1917 P0612 5*06 




RTJ- 


(JUMP) 


1938 P0613 18BF 




JMP* 


LOOPAO 


19*0 


•END OF 


SECTION 


10 


19M P061<t EOFA 


SFCAft 


LDQ- 


EQUIP 


19«»2 P0615 0020 




INQ 


$20 


19<»3 P0616 0A01 




ENA 


1 


19** P0617 0302 




OUT 


2 


1945 P0618 180* 




JMP* 


SECAB 


19*»6 P0619 5*EC 




RTJ- 


(ERRORS) 


19*7 P061A 5<»ED 




RTJ- 


(ERRORS) 


19*8 P061B 18F8 




JMP» 


SECAA 



DATE* 0i/0*/75 



EQ. NO. , Q00 SET. 

SET Q05 (STATION 1). 

SET A03 AND A01. 

SELECT CLEAR INT AND EOP INT. 

EXPECT REPLY. 

ERRORS, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 



WAIT FOR EOP INTERRUPT. 

GET COLUMN COUNT. 

SKIP IF 80 COLUMNS READ. 



EXPECTED COLUMN COUNT = 80. 
ERROR 11, WRONG COLUMN COUNT 
3 STOPS. 



80 COLUMNS READ. CHECK DATA. 

GET STATUS UPON EOP INTERRUPT. 

SAVE FOR ERROR MESSAGE. 
IGNORE EOF AND PROTECT BITS. 

EXPECT EOP, INTERRUPT, READY. 

ERROR 7, UNEXPECTED STATUS. 

CHECK STOP/JUMP BIT 15. 
EXIT LOOP IF SET. 

EXIT LOOP IF EOF CARD. 
LOOP TO READ NEXT CARD. 

CHECK STOP/ JUMP BIT *. 
LOOP IF SET. 



EQ. NO., Q00 SET. 

SET Q05 (STATION 1). 

SET A00. 

CLEAR CONTROLLER. 

EXPECT REPLY. 

ERROR *♦, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 



01903 
0190*1 
01905 
01906 
01907 
01908 
01909 
01910 
01911 
01912 
01913 
0191* 
01915 
01916 
01917 
01918 
01919 
01920 
01921 
01922 

01923 
0192* 

01925 

01926 
01927 

01928 

01929 
01930 
01931 
01932 
01933 
0193* 
01935 
01936 
01937 
01938 



019*0 
019*1 
019*2 
019*3 
019** 
019*5 
019*6 
019*7 
019*8 
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CRPAOD PAGE 53 DATE! 01/0^/75 

19<i9 P061C 5800 3ECAL1 RTJ ENDSEC END-OF-SECTION STOP. 019%9 

PD610 015E 

1950 P061E 18A6 JMP» SECA REPEAT SECTION. - 01950 

1951 P061F 1801 JMP* SECB GO TO NEXT SECTION. 01951 
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1953 
1954 
1955 



****¥** »***«***«**«********¥*****¥****»*******«**««¥*»*****«»**** ******* 01953 

♦SECTION 11 - BUFFERED READ 0195*1 

-»eBB3BBBBBeBBB888RBBBBBRBnaeBBB8BBBBBBBBB8aeSBBBBe8B8B8BBBBBBBeBB8BBBBBB 01955 



1957 
1958 
1959 
1960 

1961 
1962 
1963 

1964 
1965 
1966 
1967 
1968 
1969 
1970- 
1971 

1972 



P0620 
P0621 
P0622 
P0623 
P0624 
P0625 
P0626 
P0627 
P0628 
P0629 
P062A 
P0628 
P062C 
PQ620 
P062E 
P062F 
P0630 
P0631 
P0632 



CflFB 

0104 

C800 

F9E3 

A0 76 

0112 

1800 

0Q9B 

OAOB 

60F9 

0C20 

4000 

0844 

60D9 

60E2 

COOO 

0B60 P 

6800 

0400 



♦INITIALIZE SECTION 11 
SEC8 LDA- CHAN 
SAZ 4 
LOA SECTOT 



ANO- 

SAN 

JMP 

ENA 

5TA- 

ENQ 

STG- 

CLR 

STA- 

STA- 

LDA 

STA 



C0NST*11 

2 

SECC 

11 

SEC 

t20 

STATION 

A 

EOFFLAG 

OFFSTF 

=XBUFFIN+8 

BUFFIN-i 



GO TO NEXT SECTION IF NO 1706. 
GET SECTION PARAMETER. 

CHECK BIT 11. 

GO TO NEXT SECTION IF CLEAR. 



SAVE SECTION NO. FOR ERRORS. 
SET Q05 <STATION II. 



CLEAR. ENO-OF-FILE FLAG. 
CLEAR OFFSET FLAG. 



STORE AT FIRST WORD ADDRESS -1. 



01957 
01958 
01959 
01960 

01961 
01962 
01963 

01964 
01965 
01966 
01967 
01968 
01969 
01970 
01971 

01972 



1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 

1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 

1993 
1994 
1995 



P0633 
P0634 
P0635 
P0636 
P0637 
P0638 
P0639 
P063A 
P063B 
P063C 
P063U 
P063E 
P063F 
P0640 
P0641 
P0642 
P0643 
P0644 
P0645 



EOFA 
0O20 
C0E2 
0FC8 
8000 
0099 
0302 
1804 
54EC 
54ED 
18F5 
54EA 
54EB 
COOO 
OBOF 
EOFA 
0O1F 
F000 
1900 



♦SECTION 11, LOOP - READ THRU ENO-OF-FILE CARD. 01974 

♦ SELECT CLEAR, FEED, EOP AND ALARM INTERRUPTS ON READER* EXPECT 01975 

♦ REPLY. INITIATE 80-HORO BUFFERED READ. WHEN 1706 BECOMES 01976 

♦ NOT BUSY, EXPECT 1706 CURRENT WORD ADDRESS TO BE FIRST WORD 01977 

♦ ADDRESS +8 0. EXPECT NO ALARM INTERRUPT. WAIT FOR EOP 01978 
» INTERRUPT. 01979 
LOOPfiO LDQ- EQUIP EQ. NO., Q0 SET. 01980 

INQ $20 SET 005 (STATION 1). 01981 

LOA- OFFSTF GET OFFSET FLAG. 01982 

ALS 8 SET A 08 (OFFSET) IF FLAG SET. 01983 

AOO =N$0099 SET AQ7, A04« A03, AND A00. 01984 

FEED, CLEAR, EOP+ALARM INTS. 01985 

EXPECT REPLY. 01986 

ERROR 4, INTERNAL REJECT. 01987 

ERROR 5, EXTERNAL REJECT. 01988 

HANG ON REJECT. 01989 

SBOA RTJ- (INITEOP) INITIALIZE EOP INTERRUPT. 01990 

INITIALIZE ALARM INTERRUPT. 01991 

01992 

EQ.. NO., Q00 SET. 01993 

SET Q05 (STATION 1), CLEAR Q00. 01994 
W=05,0A,OR OF FOR 8UFFEREO WRITE 01995 



OUT 


2 


JMP^ 


SBOA 


RTJ- 


(ERRORS 


RTJ- 


(ERROR5) 


JMP» 


LOOP80 


RTJ- 


(INITEOP) 


RTJ- 


(INITALARM) 


LOA 


=X8UFFIN-1 


LOQ- 


EQUIP 


INQ 


$1F 


ADO 


=N$1800 
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PAGE 


55 


1996 P0646 


C3FE 


OUT 


-1 


1997 P0647 


54E5 


RTJ- 


ISMM) 


1998 


* 






1999 P0648 


5800 


RTJ 


MILLI 


po6*»9 


275 






2000 P064A 


54E5 


RTJ- 


(SMM> 


2001 P0648 


54F6 


RTJ- 


(ERRORE) 


2002 P06<*C 


CODB 


LOA- 


EOPIF 


2003 P064Q 


0112 


SAN 


SBOB-*-l 


2004 P064E 


54F3 


RTJ- 


(ERRORO) 


2005 P06<tF 


1817 


JMP* 


SBDOA 


2006 P0650 


C005 SBOU LOA- 


BDCCWA 


2007 P0651 


60DF 


STA- 


ACT 


2008 P0652 


E800 


LOQ 


BUFFIN-1 


PQ653 


04BC 




% 


2009 PQ654 


4QE0 


STQ- 


EXP 


2010 P0655 


0874 


EAQ 


A 


2011 P0656 


0105 


SAZ 


SB0C-*-i 


2012 P0657 


0C13 


ENQ 


$13 


2C13 P0658 


0A10 


ENA 


$10 


2014 P0659 


5800 


RTJ 


ERROR 


P065A 


03F6 






2015 P0650 


1803 


JMP* 


SBOO 


2016 P065C 


5800 SBOC RTJ 


CHECK 


P065O 


0378 




. 


2017 P065E 


C800 SPOD LDA 


EOPIS 


P065F 


023A 






2018 P0660 


6flOF 


STA- 


ACT 


2019 P0661 


AOOO 


AND 


=N3FB7F 


P0662 


FB7F 






2020 P0663 


ROOD 


EOR 


=N$0015 


P066<* 


0015 






2021 P0665 


54EF 


RTJ- 


(ERR0R7) 


2022 P066fi 


C07A SBODA LOA- 


CONST+15 


2023 P0667 


5406 


P.TJ- 


(JUMP) 


2024 P0668 


180«i 


JMP* 


SBOE 


2025 P066'J 


C0D9 


LOA- 


EOFFLAG 


2026 P066A 


0111 


SAN 


SBOE-»-l 


2U27 P0669 


10C7 


JMP* 


LOOPBO 


2028 P066C 


0A10 3£!0f; ENfl 


J10 


2029 P0660 


5<«06 


RTJ- 


(JUMP) 


2030 P066E 


18C4 


JMP* 


LOOPBO 


2032 P066F 


0844 


CLP. 


A 


2033 P0670 


6009 


STA- 


EOFFLAC, 


2034 P0671 


60E2 


STA- 


OFFSTF 


2035 Pi) 6 72 


DflOO 


RAO 


BUFFIN-i 


P0673 


n^yc 







DATE* 01/04/75 



INITIATE INPUT. 

GO TO MONITOR. 

RETURN WHEN 1706 IS NOT BUSY. 

DELAY 1 HILLI-SECOND. 

GO TO MONITOR AND BACK. 
ERRO? E, ALARM INTERRUPT. 

SKIP IF EOP INTERRUPT. 
ERRO* 8, NO EOP INTERRUPT. 

GET BDC CURRENT WORD ADDRESS. 
SAVE FOR ERROR MESSAGE. 



COMPARE WITH EXPECTED. 

ERROR 13, WRONG WORD AODRESS. 
3 STOPS. 



80 COLUMNS READ. CHECK DATA. 

GET STATUS UPON EOP INTERRUPT. 

SAVE FOR ERSOR MESSAGE. 
IGNORE EOF AND PROTECT BITS. 

EXPECT EOP, INTERRUPT, READY. 

ERROR 7, UNEXPECTED STATUS. 

CHECK STOP/ JUMP BIT 15. 
EXIT LOOP IF SET. 

EXIT LOOP IF END-OF-FILE CARD. 
LOOP TO READ MORE CARDS. 

CHFCK STOP/JUMP BIT 4. 
LOOP IF SET. 



CLEA* ENO-OF-FILE FLAG. 

CLEAR OFFSET FLAG. 

FORM FIRST WORD AODRESS +81. 



01996 
01997 
01998 
01999 

02000 
02001 
02002 
02003 
02004 
02005 
02006 
02007 
02008 

02009 
02010 
02011 
02012 
02013 
0201% 

02015 
02016 

02017 

02018 
02019 

02020 

02021 
02022 
02023 
02024 
02025 
02026 
02027 
02028 
02029 
02030 



02032 
02033 
0203d 
02035 
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OATEl 01/04/75 



2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 

2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 

2055 
2056 
2057 

2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 

2068 

2069 
2070 
2071 
2072 

2073 
2074 
2075 
2076 
2077 
2078 

2079 
2080 

2081 



P0674 
P0675 
P0676 
P0677 
P0678 
P0679 
P067A 
P067B 
P067C 
P067D 
P067E 
P067F 
P068Q 
P0681 
P0682 
P0683 
P0684 
P0685 
P0686 
P0687 
P0688 
P0689 
P068A 
PQ68B 
P068C 
P0680 
P068E 
P068F 
P0690 
P0691 
P0692 
P0693 
P0694 
P0695 
P0696 
P0697 
P0698 
P0699 
P069A 
P069B 
P069C 
P069D 
P069E 
P069F 
P06A0 
P06A1 
P06A2 
P06A3 
P06A4 



EOFA 
0O20 
C0E2 
0FC8 
8000 
0099 
0302 
1804 
54EC 
54E0 
18F5 
54EA 
54EB 

cooo 

080F P 

EOFA 

0D1F 

FOOO 

1800 

03FE 

54E5 

54 F6 

COOB 

0112 

54F3 

181E 

C004 

600F 

AOOO 

0302 

BOOO 

0102 

54F7 

C0O5 

60DF 

EOOO 

0B60 P 

40EO 

0874 

0105 

0C13 

0A10 

5800 

03B1 

1803 

5800 

0333 

C800 

01F5 



♦SECTION 11, LOOP 1 - READ THRU ENO-OF-FILE CAPO. 

* SAME AS SECTION 11, LOOP EXCEPT INITIATE 81-W0R0 

* BUFFERED READ. WHEN EOP INTERRUPT OCCURS, EXPECT 1706 

* STATUS TO BE REJECT AND BUSY. TERMINATE BUFFER. 

* EXPECT 1706 CURRENT ADDRESS TO BE FIRST WORD ADDRESS +80. 
LOOP91 LDQ- EQUIP EQ. NO., QOO SET. 

INQ $20 SET Q05 (STATION 11. 

LDA- OFFSTF GET OFFSET FLAG. 

ALS 8 SET A08 (OFFSET) IF FLAG SET. 

ADD =N$0099 SET A07, A04, A03, AND A00. 



SB1A 



SB1B 



SB1C 
SB1D 



OUT 

JMP* 

RTJ- 

RTJ- 

JMP» 

RTJ- 

RTJ- 

LOA 

LOQ- 
•INO 
AOQ 

OUT 

RTJ- 

RTJ- 

LDA- 

SAN 

RTJ- 

JMP» 

LOA- 

STA- 

AND 

EOR 

RTJ- 
LDA- 
STA- 
LOQ 

STQ- 

EAQ 
SA7 
ENQ 
ENA 
RTJ 

JMP*' 
RTJ 

LDA 



2 

SB1A 

(ERR0R4) 

(ERR0R5) 

LOOPBl 

(INITEOPI 

(INITALARH) 

=XBUFFIN-1 

EQUIP 

$1F 

SNS1800 

-1 

(SMM) 

(ERRORE) 

EOPIF 

SBlB-»-l 

(ERRORS) 

SB1DA 

8DCSTAT 

ACT 

=N$0302 

=N$0102 

(ERRORF) 
BOCCHA 
ACT 
=XBUFFIN+80 

EXP 

A 

SBlC-»-l 

«13 

$10 

ERROR 

SB1D 
CHECK 

EOPIS 



CLEAR,F£ED,EOP+ALARM INTS. 
EXPECT REPLY. 
ERROR 4, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
INITIALIZE EOP INTERRUPT. 
INITIALIZE ALARM INTERRUPT. 



EQ. NO. , QOO SET. - 

SET Q05 (STATION 1}, CLEAR QOO. 

W«05,OA,OR OF FOR BUFFEREO READ. 

INITIATE BUFFERED READ. 

GO TO MONITOR TILL 06 NOT BUSY. 

ERROR E, ALARM INTERRUPT. 

SKIP IF EOP INTERRUPT. 
ERROR B, NO EOP INTERRUPT. 

GET BDC STATUS UPON EOP INT. 
SAVE FOR ERROR MESSAGE. 
CHECK REJECT, REPLY, BUSY BITS. 

EXPECT REJECT AND BUSY. 

ERROR F, 1706 STATUS WRONG. 
GET 1706 CURRENT WORD ADDRESS. 
SAVE FOR ERROR MESSAGE. 



COMPARE WITH EXPECTED AODRESS. 

ERROR 13, WRONG CURRENT ADDRESS. 
3 STOPS. 



80 COLUMNS READ. CHECK OATA . 
GET STATUS UPON EOP INTERRUPT. 



02037 
02038 
02039 
02040 
02041 
02042 
02043 
02044 
02045 
02046 

02047 
02048 
02049 
02050 
02051 
02052 
02053 
02054 

02055 
02056 
02057 

02058 
02059 
02060 
02061 
02062 
02063 
02064 
02065 
02066 
02067 

02066 

02069 
02070 
02071 
02072 

02073 
02074 
02075 
02076 
02077 
02078 

02079 
02080 

02081 
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CRPAOD 


2082 


P06A5 


63 OF 


2083 


P06A6 


A000 




P06A7 


FB7F 


208* 


P06A8 


BOOO 




P06A9 


0015 


2085 


P06AA 


5*EF 


2086 


P06AS 


C07A 


2087 


P06AC 


5*06 


2088 


P06AO 


180* 


2089 


P06AE 


C0D9 


2090 


P06AF 


0111 


2091 


P06B0 


18C3 


2092 


P0681 


0A10 


2093 


P06B2 


5*06 


209* 


P06B3 


18C0 


2096 






2097 


P06B* 


EOFA 


2098 


P06B5 


0D20 


2099 


P06B6 


0A01 


2100 


P06B7 


0302 


2101 


P06B8 


180* 


2102 


P06B9 


5*ec 


2103 


P06BA 


5*E0 


2104 


P068H 


18F8 


2105 


P06BC 


5800 




P06Bn 


00 BE 


2106 


P06BE 


1802 


2107 


P06BF 


1803 


2108 


P06C0 


1800 




P06C1 


FF5E 



PAGE 57 



OATF* Oi/0*/75 



SB10A 



581E 



STA- 


ACT 


AND 


=N$F87F 


EOR 


=N$0015 


RTJ- 


(ERR0R7) 


LDA- 


CONST+15 


RTJ- 


(JUMP) 


JHP* 


SB1E 


LOA- 


EOFFLAG 


SAN 


SBlE-*-l 


JMP* 


LOOPB1 


ENA 


$10 


RTJ- 


(JUMP) 


JMP* 


LOOPB1 



♦END OF SECTION 11 
SECBA 



SFCBD 



LDQ- 


EQUIP 


INQ 


$20 


ENA 


1 


OUT 


2 


JMP» 


SEC8B 


RTJ- 


(ERROR*) 


RTJ- 


(ERR0R5) 


JMP* 


SECBA 


RTJ 


ENOSEC 


JMP* 


*♦? 


JMP» 


SECC 


JMP 


SECB 



SAVE FOR ERROR MESSAGE. 


02082 


IGNORE EOF AND PROTECT eiTS. 


02083 


EXPECT EOP, INTERRUPT, READY. 


0208* 


ERROR 7, UNEXPECTED STATUS. 


02085 




02086 


CHECK STOP/ JUMP BIT 15. 


02087 


EXIT LOOP IF SET. 


02088 




02089 


EXIT LOOP IF EOF CARD. 


02090 


LOOP TO READ MORE CARDS. 


02091 




02092 


CHECK STOP/ JUMP BUT *. 


02093 


LOOP IF SET. 


0209* 




02096 


EQ. NO., Q00 SET. 


02097 


SET Q05 (STATION 11. 


02098 


SET A00. 


02099 


CLEAR CONTROLLER. 


02100 


EXPECT REPLY. 


02101 


ERROR *, INTERNAL REJECT. 


02102 


ERROR 5, EXTERNAL REJECT. 


02103 


HANG ON REJECT. 


0210* 


END-OF-SECTION STOP. 


02105 


REPEAT SECTION. 


02106 


GO TO NEXT SECTION 


02107 




02108 
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CRPAOO 


2110 






2111 






2112 






2114 






2115 






2116 






2117 






2118 






2119 


PG6C2 


C800 




P06C3 


F943 


2120 


P06C4 


A0 77 


2121 


P06C5 


0111 


2122 


P06C6 


1850 


2123 


P06C7 


OAOC 


2124 


P06C8 


60F9 


2125 


P06C9 


EOOO 




P06CA 


OBBO 


2126 


P06CB 


GOOD 




P06CC 


OBBO 


2127 


P06CO 


0700 


2128 


P06CE 


09FE 


2129 


P06CF 


0102 


2130 


P06D0 


OOFE 


2131 


P0601 


18FB 


2132 


P06D2 


COOO 




P06D3 


0969 


2133 


PQ6D4 


00 20 


2134 


P06D5 


5408 


2135 






2136 


P06O6 


COOO 




P06D7 


1728 


2137 


P06DA 


0822 


2138 


P06D9 


0000 
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DATE! 01/04/75 



•SECTION -12 - PROTECTION TEST 02111 

*CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCGCCC 02112 



♦INITIALIZE SECTION 12 

♦ CLEAR PROTECT BIT IN ALL MEMORY LOCATIONS THRU ENO OF TEST. 

• TYPE OUT MESSAGE TO OPERATOR TO SET PROTECT SWITCHES 

* ON COMPUTER CONSOLE ANO ON 1728. 

♦ STOP WITH A = Q = 1728. 



SECC 



SECCA 



SECCB 



LDA 

AND- 

SAN 

JMP» 

ENA 

STA- 

LDQ 



SECTOT 

CONST+12 

1 "■ ■ 

SECO 

12 

SEC 

=XBUFF0UT+79 



LDA sXBUFFOUT*79-CRPA0O 





CPB 
INA -1 
SAZ SECCB 

INQ 

JMP* 

LDA 

ENQ 
RTJ- 

LOA 

TRA 
SLS 



-1 

SECCA 

=XMESSC 



MESSO-MESSC+1 
(MESSAGF) 



=N«1728 

Q 




GET SECTION PARAMETER. 
CHECK BIT 12. 

GO TO NEXT SECTION IF CLEAR. 
SAVE SECTION NO. FOR ERRORS, 



02U4 
02115 
02116 
02117 
02118 
02119 

02120 
02121 
02122 
02123 
02124 
02125 

PTC2 02126 



CLEAR PROTECT BITS. 



PTC2 
PTC2 



TELL OPERATOR TO SET PROTECT 
SWITCHES. 



STOP WITH A = Q =1728. 



02127 
02128 
02129 
02130 
02131 
02132 

02133 
02134 
02135 
02136 

02137 
02138 



2140 
2141 



•SECTION 12, LOOP 



2143 
2144 
2145 

2146 

2147 
2148 
2149 



P06OB 
P060C 
P06D0 
P060E 
P06OF 
P06E0 
P06E1 
P06E2 
P06E3 



54E6 

CDOF 
A000 
FBFF 
B000 
0081 
54EF 
54E8 
18F6 



GET STATION STATUS, EXPECT PROTECTED (BIT 7). 



2142 P060A 0842 LOOPCO CLR 



RTJ- 
LDA- 
AND 


(STATUS) 

ACT 

=N$FBFF 


EOR 


=N$0081 


RTJ- 
RTJ- 
JMP» 


(ERROR7) 

(IC100) 

LOOPCO 



GET STATION STATUS 

IGNORE EOF STATUS. 

EXPECT PROTECTED ANO READY. 

ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



02140 
02141 
02142 
02143 
02144 
02145 

02146 

02147 
02148 
02149 
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DATE! 01/0^/75 



2151 
2152 
2153 
215% 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
216*» 

2165 

2166 
2167 
2168 



P06E% 
P06E5 
P06E6 
P06E7 
P06E8 
P06E9 
P06EA 
P06E3 
P06EC 
P06ED 
P06EE 
P06EF 
P06F0 
P06F1 
P06F2 
P06F3 
P06F% 



EOFA 
0O20 
QAO<f 
0302 
5%EE 
5%£C 
OBOO 
0C20 
54 E6 
COOF 
AOOO 
FBFF 
BOOO 
00 81 
5%EF 
5%E8 
18EF 



•SECTION 12, LOOP 1 

♦ ATTEMPT ALL FUNCTIONS ON STATION 1, EXPECT EXTERNAL REJECT, 
GET STATION 1 STATUS, EXPECT PROTECTED AND READY. 



* . 
LOOPC1 



LOQ- 

INQ 

SET 

OUT 

RTJ- 

RTJ- 

NOP 

ENO 

RTJ- 

LOA- 

AND 

EOR 

RTJ- 
RTJ- 
JMP« 



EQUIP 

$20 

A 

2 

CERR0R6) 

(ERROR**) 

a 

S20 

(STATUS) 
ACT 
=N$FBFF 

=NS0081 

(ERR0R7) 

(IC100) 

LOOPC1 



EQ. NO., Q00 SET. 
SET Q05 (STATION 1). 
SET ALL BITS IN A. 
SELECT ALL FUNCTIONS. 
ERROR 6, UNEXPECTED REPLY. 
ERROR %, INTERNAL REJECT. 
EXPECT EXTERNAL REJECT. 
SET Q05 (STATION II. 
GET STATION STATUS. 

IGNORE EOF STATUS. 

EXPECT PROTECTED AND READY. 

ERROR 7, UNEXPECTED STATUS. 
INCREHENT LOOP COUNT. 
LOOP 100 TIMES. 



02151 
02152 
02153 
0215% 
02155 
02156 
02157 
02158 
02159 
02160 
02161 
02162 
02163 
0216% 

02165 

02166 
02167 
02168 



2170 
2171 
2172 
2173 
217% 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 

218% 

2185 
2186 
2187 



P06F5 
P06F6 
P06F7 
P06F8 
P06F9 
P06FA 
P06FB 
P06FC 
P06FD 
P06FE 
P06FF 
P0700 
P0701 
P0702 
P0703 
P070<» 
P0705 



EOFA 

oo<*a 

080% 
0302 
5%EE 
5%EC 
0800 
0C<*0 
5%E6 
CODF 
AOOO 
FBFF 
BOOO 
0089 
5%£F 
5%E8 
18EF 



♦SECTION 12, LOOP 2 

• ATTEMPT ALL FUNCTIONS ON STATION 2, EXPECT EXTERNAL REJECT. 

* GET STATION 2 STATUS, EXPECT PROTECTED AND READY. 



LOOPC? 



LOQ- 

INQ 

SET 

OUT 

RTJ- 

RTJ- 

NOP 

ENQ 

R.TJ- 

LDA- 

AND 

EOR 

RTJ- 

RTJ- 
JMP* 



EQUIP 

$«|0 

A 

2 

(ERP.0R6) 

(ERRORS) 



$i*0 

(STATUS) 

ACT 

=N$FBFF 

=N$0089 

(ERROR7) 

(IC100) 

L00PC2 



EC NO., Q00 SET. 
SET Q06 (STATION 2). 
SET ALL BITS IN A. 
SELECT ALL FUNCTIONS. 
ERROR 6, UNEXPECTED REPLY. 
ERROR %, INTERNAL REJECT. 

EXPECT EXTERNAL REJECT. 
SET Q06 (STATION 2). 
GET STATION 2 STATUS. 

IGNORE EOF STATUS. 

EXPECTED PROTECTED, DATA, READY. 

ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



02170 
02171 
02172 
02173 
0217% 
02175 
02176 
02177 
02178 
02179 
02180 
02181 
02182 
02183 

0218% 

02185 
02186 
02187 



2189 

2190 P0706 C000 
P0707 09BD 

2191 P0708 0C18 

2192 P0709 5%08 

2193 P070A CO00 
P070B 1728 



•END OF SECTION 12 
LDA 

ENQ 

RTJ- 

LDA 



=XMESSE 

MESSF-MESSEtl 

(MESSAGE) 

=NS1728 



02189 
02190 

02191 
02192 
02193 
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CRPAQD 


2194 P07QC 


0822 


2195 P0700 


0000 


2196 P070E 


ce*3 


2197 P070F 


A06C 


2198 P0710 


0113 


2i99 P0711- 


0A02 


2200 P0712 


B0U3 


2201 P0713. 


6043 


2282 P0714 


5867 


2203 P0715 


18AC 



PAGE 


60 


TRA 


Q 


SLS 





LDA- 


STJP 


ANO- 


coNsm 


SAN 


3 


ENA 


• 2 •• 


EOR- 


STJP 


STA- 


srjp 


RTJ« 


ENOSEC 


JMP* 


SECC 



OATE* 01/04/75 



SET END-OF-SECTION STOP BIT. 

END-OF-SECTION STOP. 
REPEAT SECTION. 



02194 




02195 




•earn- 


— ■-'•■■•■ 


02197 




02198 




02199 




02200 




02201 


...111,: 


0220 Z 


02203 


**.* 



$£ 
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2205 






2206 






2207 






2209 






2210 






2211 






2212 






2213 


P0716 


C800 




P0717 


F8EF 


2214 


P0718 


A078 


2215 


P0719 


0111 


2216 


P071A 


1848 


2217 


P0718 


OAOO 


2218 


P071C 


60F9 


2219 


P071O 


0842 


2220 


P071E 


4000 


2221 


P071F 


EOFA 


2222 


P0720 


0040 


2223 


P0721 


0A11 


2224 


P0722 


0302 


2225 


P0723 


1804 


2226 


P0724 


54EC 


2227 


P0725 


54ED 


2228 


PQ726 


18F8 


2229 


P0727 


COOO 




P0728 


(1995 


2230 


PQ729 


0C29 


2231 


P072A 


5408 


2232 


P072S 


COOO 




P072C 


1728 


2233 


P072D 


0822 


2234 


P072E 


0000 


2236 






2237 






2238 






2239 


P072F 


0842 


2240 


P0730 


54E6 


2241 


P0731 


AOOO 




P0732 


F4FF 


2242 


P0733 


BOOO 




P0734 


0024 


2243 


P0735 


54EF 


2244 


PQ736 


54EB 


2245 


P0737 


54F5 


2246 


P0738 


54E8 


2247 


P0739 


18F5 
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*************** ***********-»***»»************************** »♦»♦»»»»*»»*»» 
♦SECTION 13 - ALARM WITH NOT READY 
♦OOODDnOOOODOOODDDOOOOOnDOODOOOOODOOOOOODOOOOOODOOODDDOOOOOOOOOOOOOOOOOO 



•INITIALIZE SECTION 13 

♦ CLEAR CONTROLLER AND SELECT ALARM INTERRUPT ON PUNCH, EXPECT 

♦ REPLY. TYPE OUT MESSAGE TO OPERATOR TO CAUSE AN ALARM ON 1728, 

♦ STOP WITH A = Q a 1728. 

SECO LOA SECTOT GET STATION PARAMETER. 



SECOA 



SECD8 



AND- 

SAN 

JMP* 

ENA 

STA- 

CLR 

STQ- 

LOQ- 

INQ 

ENA 

OUT 

JMP* 

RTJ- 

RTJ- 

JMP* 

LOA 

ENQ 

RTJ- 

LDA 

TRA 
SLS 



CONST*13 

1 

ENDTEST 

13 

SEC 

Q 

STATION 

EQUIP 

$40 

$11 

2 

SECOB 

(ERR0R4) 

(ERR0R5) 

SECOA 

sXMESSD 

MESSE-MESSDH 
(MESSAGE I 
=N$1728 

Q 




CHECK BIT 13. 

GO TO END OF TEST IF CLEAR. 

SAVE SECTION NO. FOR ERRORS. 



EQ. NO., Q00 SET. 

SET QQ6 (STATION 2>. 

SET A04 AND A00. 

SELECT CLEAR AND ALARM INT. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT, 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 



TELL OPERATOR TO CAUSE ALARM, 



STOP WITH A = Q a 1728. 



♦SECTION 13, LOOP 

♦ GET STATION STATUS, OROP BITS 8, 9, AND 11. EXPECT 

• ALARM STATUS. SET ALARM INTERRUPT MASK BIT, EXPECT ALARM INT. 
LOOPOn CLR Q 

RTJ- (STATUS) GET STATION STATUS. 

AND =N$F<tFF DROP BITS 8,9, AND 11. 

EXPECT ALARM AND INT. STATUS. 

ERROR 7, 1NEXPECTEO STATUS. 
SET ALARM INT. MASK BIT. 
ERROR D, NO ALARM INTERRUPT 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



EOR 


=N$0n24 


RTJ- 


(ERR0R7) 


RTJ- 


(INITALARMI 


RTJ- 


(ERRORD) 


RTJ- 


(IC100I 


JMP» 


LOOPDO 



02205 
02206 

02207 



02209 
02210 
02211 
02212 
02213 

02214 
02215 
02216 
02217 
02218 
02219 
02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02228 
02229 

02230 
02231 
02232 

02233 
02234 



02236 
02237 
02238 
02239 
02240 
02241 

02242 

02243 
02244 
02245 
02246 
02247 
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2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 

2262 

2263 
2264 
2265 



♦SECTION 13, LOOP 1 

• ATTEMPT ALL FUNCTIONS ON PUNCH, EXPECT EXTERNAL REJECT* 

♦ GET STATUS, DROP 8IT 8,9, AND 11. EXPECT ALARM, NOT READY. 



P073A 
PQ73B 
P073C 
P073D 
P073E 
P073F 
PQ740 
P0741 
P0742 
P0743 
P0744 
P0745 
P0746 
PQ747 
PQ748 
P0749 



EOFA 
QQ4Q 
0804 
0302 
54 EE 
54 EC 
0B00 
0C40 
54E6 
A000 
F4E7 
BOOO 
0024 
54EF 
54E8 
18F0 



LOOPD1 



loq- 

INQ 

SET 

OUT 

RTJ- 

RTJ- 

NOP 

ENQ 

RTJ- 

AND 

EOR 

RTJ- 
RTJ- 
JMP» 



EQUIP 

$40 

A 

2 

CERR0R6) 

(ERRORS) 



$40 

(STATUS) 

=N$F4E7 

=N$0024 

(ERROR7) 

CIC100) 

LOOPOl 



EQ. NO., Q00 SET. 
SET Q06 (STATION 2). 
SET ALL BITS IN A. 
SELECT ALL FUNCTIONS. 
ERROR 6, UNEXPECTED REPLY. 
ERROR 4, INTERNAL REJECT. 
EXPECT EXTERNAL REJECT. 
SET 006 (STATION 2). 
GET STATION 2 STATUS. 
DROP BITS 3,4,8,9, AND 11. 

EXPECT ALARM AND INT. STATUS. 

ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



02249 
02250 
02251 
02252 
02253 
02254 
02255 
02256 
02257 
02258 
02259 
02260 
02261 

02262 

02263 
02264 
02265 



2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 

2280 

2281 
2282 
2283 



♦SECTION 13, LOOP 2 

» ATTEMPT ALL FUNCTIONS ON READER, EXPECT EXTERNAL REJECT. 

* GET STATUS, DROP BITS 8 f 9, AND 11. EXPECT ALARM, NOT READY STATU 



P074A 
P074B 
P074C 
P074D 
P074E 
P074F 
P0750 
P0751 
P0752 
P0753 
P075«» 
P0755 
P0756 
P0757 
P0758 
P0759 



EOFA 
0020 
0804 
0302 
54EE 
54 EC 
0B00 
0C20 
54E6 
AOOO 
F4FF 
BOOO 
0024 
54EF 
54E8 
18F0 



L00PH2 



L DO- 
ING, 
SET 
OUT 
RTJ- 
RTJ- 
NOP 
FNQ 
RTJ- 
ANfl 

EOR 

RTJ- 
RTJ- 
JMP» 



EQUIP 

$20 

A 

2 

(ERROR6J 

(ERRORS) 



$20 

(STATUS) 

=N$F4FF 

=N$002*» 

(ERROR7) 

(IC100) 

LOOP02 



EQ. NO., Q00 SET. 
SET Q05 (STATION 1). 
SET ALL BITS IN A. 
SELECT ALL FUNCTIONS. 
ERROR 6, UNEXPECTED REPLY. 
ERROR «», INTERNAL REJECT. 
EXPECT EXTERNAL REJECT. 
SET Q05 (STATION 1). 
GET STATION 1 STATUS. 
DROP BITS 8,9, ANO 11. 

EXPECT ALARM AND INT. STATUS. 

ERROR 7, UNEXPECTED STATUS. 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES. 



02267 
02266 
02269 
02270 
02271 
02272 
02273 
02274 
02275 
02276 
02277 
02278 
02279 

82280 

02281 
02282 
02283 



2285 *END OF SECTION 13 

2286 P075A C043 LDA- STJP 

2287 P0758 A06C ANO- CONST+1 

2288 P075C 0113 SAN 3 

2289 P075D 0AO2 ENA 2 

2290 P075E B043 EOR- STJP 

2291 P075F 6043 STA- STJP 

2292 P0760 581B RTJ* ENDSEC 



SET FNO-OF-SECTION STOP BIT 
FND-OF-SECTION STOP. 



02265 
02286 
02287 
02288 
02289 
02290 
02291 
02292 
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2293 P0761 18B«f 



JMP* 



SECO 



REPEAT SECTION. 



02293 
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DATE! 01/04/75 



2295 




♦END OF 


1723 TES 


T 


2296 




* 


STOP IF 


STOP/JUHP 


2297 




»' 


REPEAT 


TEST IF STO 


2298 P0762 


D805 


ENDTEST 


RAO* 


PASSCT 


2299 P0763 


COOS 




LDA- 


BIAS 


2300 P0764 


5402 




RTJ- 


(STOPX) 


2301 P0765 


1803 




JMP» 


PASSCT+1 


2302 P0766 


0D04 




NUM 


$0004 


2303 P0767 


0000 


PASSCT 


NUM 





2304 P0768 


0A40 




ENA 


$40 


2305 P0769 


5406 




RTJ- 


(JUMP) 


2306 PQ76A 


1803 




JMP* 


REPEAT 


2307 P076Q 


CO 08 




LDA- 


BIAS 


2308 P076C 


5403 




RTJ- 


(EXIT) 



BIT ?. IS SET. 
P/JUMP BIT 6 





02296 


IS SET, EXIT TEST IF NOT. 


02297 


INCREMENT PASS COUNTER. 


02298 




02299 


ENO-OF-TEST STOP. 


02300 




82301 


IDENT WORD. 


02302 


COUNT OF PASSES THRU TEST# 


02303 




02304 


CHECK STOP/ JUMP BIT 6. 


02305 


REPEAT TEST IF SET. 


02306 




02307 


EXIT TEST. 


02308 



2310 
2311 
2312 
2313 
2314 
2315 

2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 



P076D 
P076E 
P076F 
P0770 
P0771 
P0772 
P0773 
P0774 
P0775 
P0776 
P0777 
P0778 
P0779 
F077A 



0A01 
EOFA 
F400 
0070 
03FE 
C075 
5406 
5814 
EOFA 
0020 
0A01 
03FE 
1800 
F892 



♦REPEAT 1728 TEST 

♦ TEST REPEATS IF STOP/ JUMP 6 IS SET OR IF MONITOR RETURNS 

* CONTROL. RE-ENTER PARAMETERS IF STOP/JUNP 10 IS SET. 
REPEAT ENA 1 

LOO- EQUIP 
ADQ BIT5 5 



MGREST 



OUT 


-1 


LDA- 


CONST+10 


RTJ- 


(JUMP) 


RTJ» 


PARAM 


LOQ- 


EQUIP 


INQ 


$20 


ENA 


1 


OUT 


-1 


JMP 


RESTART 



CHECK STOP/ JUMP 10, 
RENTER PARAMETERS 



02310 

02311- 

02312 

02313 

02314 

02315 

02316 
02317 
02318 
02319 
02320 
02321 
02322 
02323 
02324 
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2326 






♦END-OF 


SECTION 


SUBROUTINE 


2327 






*■ 


CALLING SEQUENCE IS <FOR 


2328 






* 


P 


RTJ» ENDSEC 


2329 






* 


P+l 


JMP» SFCX 


2330 






* 


P*2 


GQ TO NEXT SEC 


2331 


P077B 


0000 


ENDSEC 


NUN 





2332 


P0 77C 


C0F9 




LOA- 


SEC ' 


2333 


P077Q 


6805 




STA» 


SECTION 


2334 


P077E 


CO 08 




LOA- 


BIAS 


2335 


P077F 


5402 




RTJ- 


CSTOPX) 


2336 


P0780 


1803 




JMP* 


SECTION+1 


2337 


P0781 


0O02 




NUM 


$0002 


2338 


P0782 


0000 


SECTION 


NUM 





2339 


P0783 


0A20 




ENA 


$20 


2340 


P0784 


5406 




RTJ- 


(JUMP) 


2341 


P0 785 


1CF5 




JMP* 


(ENOSEC) 


2342 


P0786 


08F4 




RAO* 


END SEC 


2343 


P0787 


1CF3 




JMPV 


<E NOSE CI 



DATE! 01/04/75 



EXAMPLE) 

STOP IF STOP/JUMP 1 IS SET. 
REPEAT SECTION X IF STOP/JUMP 5 SET. 
TION. 



END-OF-SECTION STOP. 

IOENT WORD. 
SECTION NUMP-ER. 

CHECK STOP/JUMP 5. 

P+l EXIT, REPEAT SECTION IF SET. 

P+2 EXIT, GO TO NEXT SECTION. 



02326 
02327 
02328 
02329 
02330 
02331 
02332 
02333 
02334 
02335 
02336 
02337 
02338 
02339 
02340 
02341 
02342 
02343 



2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 



♦PARAMETER ENTRY SUBROUTINE. 

* THREE STOPS OCCUR IF STOP/ JUMP IS SET 



P0788 
P0789 
P078A 
P078Q 

P078C 

P078D. 

P078E 

P078F 

P0790 

P0791 

P0792 

P0793 

P0794 

HQ795 



0000 
CD08 
5402 
1806 
C78C 
QD21 
OFFF 
ODEF 
CG4E 
03E8 
C8F0 
0134 
09FO 
0132 
09B2 



PARAM 



Pl n . 

PARAMt 

PARAM2 

PARAM.? 

PA^AHt) 

PAP.AMF 



1ST STOP 
2ND STOP 



3RD STOP 

NUM 

LOA- 

RTJ- 

JMP* 

ORG 

NUM 

NUM 

NUM 

NUM 

NUM 
LDA* 
SAM 
INA 
SAM 
INA 



- A = 0031, Q = STOP/JUMP WORD 

- A = SECTIONS (BIT FOP SECTION 0* BIT 1 FOR 
SECTION -1, ETC.) 

Q = 0XY7, WHERE 

X = DATA INTERRUPT LINE. 
Y = EOP INTERRUPT LINE. 
7 = ALARM INTERRUPT LINE. 

- A = COL PUNCHRD/CHECKED IN PTN 4, Q a DELAY BTWN CDS 


BIAS 
(STOPX) 
PARA ME 



$0021 

SQFFF 

SOOEF 

78 

1000 

PARAM3 

PARAMF 

-2 

PARAMF-*-i 

-$40 



PARAMETER STOP. 



IOENT WORD 

SECTIONS. 

INT. LINES X, Y, Z. 

COL TO BE PUNCHED FOR PTN4 

MILLSEC OELAY BETWEEN CARDS 



02345 
02346 
02347 
02348 
02349 
02350 
02351 
02352 
02353 
02354 
02355 
02356 
02357 
02358 
02359 
02360 
02361 
02362 
02363 
02364 
02365 
02366 
02367 
02368 
02369 
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2370 P0796 0131 


SAN 


PARAMG-*-l 


2371 P0797 1817 PARAMF JMP* 


PARERR 


2372 PO 798 C8F* PARANG LOA* 


PARAM1 


2373 P0799 6800 


STA 


SEC TOT 


P079A F86C 






237'* P079B E8F2 


LDQ« 


PARAM2 


2375 P079C *800 


STQ 


INTLINES 


P079D F86A 






2376 P079E C97F 


LDA- 


HOFOO 


2377 P079F 08B* 


LAQ 


A 


2378 P07A0 0F*6 


ARS 


6 


2379 P07A1 6829 


STA* 


QINT 


2380 P07A2 0108 


SAZ 


PARERR-*-i 


2381 P07A3 C07E 


LDA- 


HOQFO 


2382 P07A* 088* 


LAQ 


A 


2383 P07A5 0F*2 


ARS 


2 


238* P07A6 6825 


STA* 


QINT+1 


2385 P07A7 0106 


SAZ 


PARERR-»-l 


2386 P07A8 OAOF 


ENA 


$0F 


2387 P07A9 088* 


LAQ 


A 


2388 P87AA 0FC2 


ALS 


2 


2389 P07A8 6821 


STA* 


QINT+2 


2390 P07AC 0101 


' SAZ 


PARERR-*-i 


2391 P07AD 1806 


JMP* 


PAR 



DATE! Oi/0*/75 



PARANETER ERROR IF COL NOT 2-78 



OF// 
0X00, DATA INTERRUPT LINE. 



ERROR, DATA INT. LINE ZERO, 
OOYO, EOP INTERRUPT LINE. 



ERROR, EOP INT. LINE ZERO. 

QOOF 

000Z, ALARM INTERRUPT LINE, 



ERROR, ALARM INT. LINE ZERO. 



02370 
02371 
-02372 
02373 

0237* 
02375 

-02176 
02377 
02378 
02379 
02380 
02381 
02382 
02383 
0238* 
02385 
02386 
02387 
02388 
02389 
02390 
02391 



cava 
239* 


P07AE 


0C03 


2395 


P07AF 


08** 


2396 


PO780 


5800 




P0781 


029F 


2397 


P07B2 


1806 


2399 


P0783 


OCFC 


2*00 


P07B* 


CA19 


2*01 


P07B5 


60 FF 


2*02 


P07B6 


CA1* 


2*03 


P07B7 


6500 




P07B8 


0103 


2*0* 


P0789 


0DO1 


2*05 


P078A 


01*1 


2*06 


P07BB 


18F8 


2*07 


P078C 


08** 


2*08 


P07BD 


6800 




P07BE 


OOFE 


2*09 


P07BF 


C800 




P07C0 


FFCF 


2*10 


P07C1 


OFE* 



•PARAMETER ENT*Y ERROR 
PARERR, ENO 3 

CLR A 

RTJ ERROR 



PAR 



JNP* 


PARAM+i 


ENQ 

LDA* 

STA- 

LDA* 

STA* 


-3 

QINT+3,Q 

I 

INTR0UTINES+3,Q 

$103,1 


INQ 

SQZ 

JNP* 

CLK 

STA 


1 
1 

PAP.+l 

A 

OELAY 


LDA 


PA RAN* 


LLS 


* 



ERROR 3, PARAMETER ERROR. 
2 STOPS. 



STORE IN INTERRUPT TRAP. 



02393 
0239* 
02395 
02396 



PARAMETERS MUST BE CHOSEN AGAIN. 02397 



02399 
02*00 
02*01 
02*02 
02*03 



02*0* 
02*05 
02*06 
02*07 
02*08 

02*09 

02*10 
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DATE! 01/04/75 



2411 P07C2 3000 
PQ7C3 0032 

2412 P07C4 6800 
P07C5 CGF8 

2413 P07C6 1CC1 



OVI =N50 

STA INCR 

JMP* (PARAM) 



02411 
02*12 
02*13 



2415 * 

2416 P07C7 0336 P INTROUT 
P0 7C8 0836 P 

P07C9 0836 P 

2417 P07CA 0003 QINT 



INITIAL ADDRESSES OF INTERRUPT ROUTINES, 
AOC INTPRC,INTPRC,INTPRC 



BSJ 



QINT (3) 



02415 
02416 



02417 



2420 






2421 






2422 






2423 






2424 






2425 


PQ7CD 


0000 


2426 


P07CE 


FOFA 


2427 


P07CF 


4802 


2428 


P07DO 


E000 


2429 


P07D1 


0000 


2430 


P07D2 


0202 


2431 


P07D3 


1854 


2432 


P07D'« 


5«»EC 


2433 


P07Ob 


54E0 


2434 


P07D6 


18F9 


2435 


P37D7 


6CDF 


2436 


P07OB 


AOOO 




PD7D9 


FB7F 


2437 


P07DA 


1CF2 



♦STATUS INPUT 

» BITS 



STAT 



IN Q SPECIFY LEVEL AND STATION. SAVE STATUS AT ACT. 
CALLING SEQUENCE IS (FOR EXAMPLE) 



P-l 

P 

P+l 

NUM 

ADQ- 

STQ* 

LOO- 

NUM 

INP 

JMP* 

RTJ- 

RTJ- 

JMP* 

STA- 

AND 

JMP* 



ENQ 

RTJ- 

STATUS 



EQUIP 

•♦2 





2 

•♦4 

(ERR0R4) 

IERROR5) 

*-6 

ACT 

=NSFB7F 

(STAT) 



S20 SET QB5 (STATION 1). 

(STATUS) GET STATION 1 STATUS. 
IS IN A-REGISTER (BITS 7 AND 10 ARE CLEAR). 



SAVE EQUIPMENT ADDRESS. 

EQUIPMENT ADDRESS. 

INPUT STATUS. 

EXPECT REPLY. 

ERROR 4, INTERNAL REJECT. 

ERROR 5, EXTERNAL REJECT. 

HANG ON REJECT. 

SAVE STATUS. 

CLEAR 7 (PROTECT) ANO 10 (EOF) 

EXIT WITH STATUS IN A. 



02419 
02420 
02421 
02422 
02423 
02424 
02425 
02426 
02427 
02428 
02429 
02430 
02431 
02^32 
02433 
02434 
02435 
02436 

02437 
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DATEt 0i/0*»/75 



2439 *IN 


CP.EHENT LOC 


IP COUNTER 


2440 * 


THIS 


SUBROUTINE CONTROLS 


2441 ".■'■* 


P 


RTJ- <IC100> 


2442 * 


P+i 


JMP* LOOPXX 


2443 * 


P+? 


EXIT LOOP. S/J 


2kkk P07DB 0000 TNCCT NUM 





2445 P070C C07A 


LOA- 


CONST+15 


2446 P07D1) 5406 


RTJ- 


(JUMP) 


2447 PB7DE 1806 


JMP» 


•♦6 


2448 P070F CODE 


RAO- 


COUNTER 


2449 P07En CODE 


LOA- 


COUNTER 


2450 PQ7E1 881* 


EOR» 


LIMIT 


2451 P07E2 0101 


SAZ 


1 


2452 P07E3 1CF7 


JMP» 


<INCCT) 


2453 P07E4 0844 


CLR 


A 


2454 P07E5 60DE 


STA- 


COUNTER 


2455 P07E6 C0F9 


LOA- 


SEC 


2456 P07E7 09F3 


INA 


-12 


2457 P07E8 0101 


SAZ 


1 


2458 P07E9 54E5 


RTJ- 


(SMH) 


2459 P07EA 0A1Q 


ENA 


$10 


2460 P07EB 5406 


RTJ- 


CJUMP) 


2461 P07EC 1CEE 


JHP» 


(INCCT) 


2462 P07EO D8E0 


RAO» 


INCCT 


2463 P07EE 1CEC 


JMP» 


(INCCT) 



LOOPING. CALLING SEQUENCE IS 
INCREMENT LOOP COUNTER. 
LOOP 100 TIMES OR IF S/J 4 SET, 

4 NOT SET. S/J 15 SET OR LOOPED 100. 



CHECK STOP/ JUMP 15. 
EXIT LOOP IF SET. 
INCREMENT LOOP COUNTER. 

CHECK WHETHER 100 

P+l EXIT. LOOP. 

CLEAR COUNTER. 

GET NUMBER OF CURRENT SECTION. 

CHECK WHETHER SECTION 12. 

STAY IN TEST <NO EIN) IF PROTECT 

GO TO MONITOR ANO BACK. 

CHECK STOP/JUMP 4. 
P*l EXIT. LOOP. 

P*2 EXIT. EXIT LOOP. 



02439 
02440 
02441 
02442 
02443 
02444 
02445 
02446 
02447 
02448 
02449 
02450 
02451 
02452 
02453 
02454 
02455 
02456 
02457 
02458 
02459 
02460 
02461 
02462 
02463 
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2*65 P07EF 0000 INC100 
2*66 P07F0 E8FE 
2*67 P07F1 0A6* 
2*68 P07F2 180* 

2469 P07F3 0000 INC10 

2470 P07F4 E8FE 

2471 P07F5 OAOA 

2472 P07F6 6803 

2473 P07F7 48E3 

2474 P07F8 18E3 

2475 P07F9 0000 LIMIT 



PAGE 


69 


NUM 





LOO* 


*-l 


ENA 


100 


JMP* 


*♦* 


NUM 





LOQ* 


*-l 


FNA 


10 


STA* 


LIMIT 


STQ* 


INCCT 


JMP* 


TNCCTtl 


NUM 






DATE* 01/04/75 



LOOP 100 TIMES. 



LOOP 10 TIMES. 



02465 
02466 
02**7 
02*68 
02*69 
02*70 
02*71 
02*72 
02*73 
02*7* 
02*75 



2*77 


P07FA 


ooon 


MONITOR 


NUM 





2*78 


P07F8 
P07FC 


cooo 

FF37 




LOA 


*N-200 


2*79 


P07FD 


681A 




STA* 


WNBCNT 


2*8C 


P07FE 


CCFA 


MNTR1 


LOA- 


EQUIP 


2*81 


P07FF 


0822 




TRA 


G 


2*82 


P0800 
P0801 


A000 
F800 




ANU 


=NSF«00 


2*83 


P0802 


0104 




SAZ 


MNTR3-*-l 


2*8* 


P0803 


F077 




Aon- 


CONST*12 


2*85 


P0804 


5805 




RTJ* 


MNTR4 


2486 


P0805 


F000 


MNTR2 


AOrj 


=N$EFFF 




P08 06 


EFFF 








2*87 


P0807 


5802 


MNTRJ 


RTJ* 


HNTR4 


2*88 


P0803 


1CF1 




JMP* 


(MONITOR) 


2*89 


P0809 


0000 


MNTF'f 


NUM 





2*90 


P080A 


020A 


MNTR5 


INP 


MNTP9-* 


2491 


P080B 


A06C 




AND- 


CONST+1 


2*92 


P080C 


0111 




SAN 


MNTRf>-*-l 


2*93 


P080O 


1CFB 




JMP* 


(MNTR4) 


2*94 


P080E 


D809 


MNTP.fi 


RAO* 


WNBCNT 


2495 


P080F 


C806 




LMA* 


WNBCNT 


2496 


P0810 


0112 




SAN 


2 


2497 


P0811 


■ 0A02 




ENA 


2 


2498 


P0812 


54EF 




RTJ- 


(ERROR7) 


2499 


P0813 


18cA 




JMP* 


MNTR1 


2500 


P081«« 


54EC 


MNTR'J 


RTJ- 


(ERROR4) 


2501 


PG815 


54E0 




RTJ- 


(ERR0R5) 


2502 


P0816 


18E7 




JMP* 


MNTR1 


2503 


P0817 


0000 


WNBCNT 


NUM 






WAIT NOT BUSY OR A COUPLE OF 



SECONDS, WHICHEVER COMES 1ST 



IS EQUIP ON A CHANNEL 

YES CHANGE EQ NO FOR STATUS 
WAIT CHANNEL NOT BUSY 



NO WAIT tfQUIP NOT BUSY 
EXIT 

INPUT STATUS 

IS BUSY STATUS UP 
NO 



INTERNAL RE J 
EXTERNAL REJ 



**** ERROR 4 **** 
**** ERROR 5 **** 



02*77 

02*78 

02*79 
02*80 
02*81 
02*82 

02*83 
02*8* 
02*85 
02*86 

02*87 
02*88 
02*89 
02*90 
02*91 
02*92 
02*93 
02*9* 
02*95 
02*96 
02*97 
02*98 
02*99 
02500 
02501 
02502 
0250 3 
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DATE* Ql/Qk/75 



2505 
3586 

2507 P0813 OQOQ 

2508 P0819 08hk 

2509 P081A 60OA 

2510 P081B E8AE 

2511 P081C 0F22 

2512 P081D E26B- 

2513 P081E 0500 
25i<» P081F 0819 

2515 PO820 0*08 

2516 P0821 1CF6 



♦INITIALIZE DATA INTERRUPT 
* CALLING SEQUENCE ' 



RTJ- (INITDATAI 



INITOI 



NUM 

CLR 

STA- 

LOQ» 

QRS 

LOQ- 

IIN 

TRB 

EIN 

JMP* 





A 

DATA IF 

QINT 

2 

CONSTfQ 



M 

& - 

(INITOI) 



02505 
825*6 

02507 
02508 
02589 
02510 
02511 
02512 
02513 
0251% 
«3*1§ 
02516 
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PAGE 


71 


OATEI 0i/0*/75 


2518 




♦INITIALIZE EOP 


INTERRUPT 




2519 




* 


CALLING 


SEQUENCE * 


RTJ- • (INITEOP) 


2520 P0822 


0000 


INITEI 


NUN 







2521 P0823 


08** 




CLR 


A 




2522 P082«f 


60 OB 




STA- 


EOPIF 




2523 P0825 


E8A5 




LOQ» 


QINT+1 




252* P0826 


0F22 




QRS 


2 




2525-P0827 


E26B 




LDQ- 


CONST, Q 




2526 P0828 


0500 




IIN 







2527 P0829 


0819 




TRB 


M 




2528 P082A 


0*00 




EIN 







2529 P082B 


1CF6 




JMP» 


CINITEI) 




2531 




♦INITIALIZE ALARM INTERRUPT 




2532 




* 


CALLING 


SEQUENCE = 


RTJ- (INITALARM1 


2533 P082C 


0000 


INITAI 


NUM 







253* P0820 


08** 




CLR 


A 




2535 P082E 


600C 




STA- 


ALA IF 




2536 P082F 


E89C 




LDD» 


QINT+2 




2537 P0830 


0F22 




QRS 


2 




2538 P0831 


E26B 




LOQ- 


CONST, Q 




2539 P0832 


0500 




IIN 







25*0 P08 33 


0819 




TRO 


M 




25*1 P083* 


0*00 




?IN 







25*2 P083 f 5 


1CF6 




JHP* 


(INITAI) 





02518 
02519 
02520 
02521 
02522 
02523 
0252* 
02525 
02526 
02527 
02528 
02529 



02531 
02S32 
02533 
0253* 
02535 
02536 
02537 
02538 
02539 
025*0 
025*1 
025*2 
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2544 






2545 






251*7 


P0836 


0000 


2548 


P0837 


40FF 


2549 


P0838 


EOFQ 


2550 


P0839 


0151 


2551 


P083A 


180D 


2552 


P0838 


F0 77 


2553 


P083C 


0800 


2554 


P0830 


02FE 


2555 


P083E 


6004 


2556 


P083F 


A06C 


2557 


P084G 


0102 


2558 


P0841 


FOOO 




P0842 


EFFF 


2559 


P08<»3 


F076 


2560 


P0844 


0800 


2561 


P0845 


02FE 


2562 


P0846 


6005 


2563 


P0847 


HO FA 


2564 


P0848 


FOOD 


2565 


P0849 


OOOO 


2566 


P084A 


02FE 


2567 


P084B 


6848 


2568 


P084C 


A070 


2569 


P0840 


0111 


2570 


P084E 


1810 


2571 


P08«iF 


C847 


2572 


P0850 


684A 


2573 


P0851 


0O02 


2574 


P0852 


0800 


2575 


P0853 


02FE 


2576 


P0854 


6847 


2577 


P0855 


OODC 


2578 


P0856 


C840 


2579 


P0857 


A06F 


2580 


P0858 


0115 


2581 


P0859 


080C 


2582 


P085A 


6500 




P0858 


0142 


2583 


P085C 


EOFF 


2584 


P085D 


1CD8 


2585 


PQ85E 


C838 


2586 


P085F 


A06F 


2587 


P0860 


0104 


2588 


P0861 


C835 


2589 


P0862 


6837 


2590 


P0863 


D008 


2591 


PQ864 


18F4 


2592 


P0865 


C831 



INTPRC 



INTR 



INTRA 



I NT Re 



INTR1 



PAGE" 7? DATEI 01/04/75 



INTERRUPT PROCESSOR 

ERROR NUMBER 14 IF STATUS NOT DATA, EOP, OR ALARM 



SAVE Q 

BUFFER CHANNEL 

YES-SKIP 

NO -JUMP 

SET UP FOR 1706 STATUS INPUT 

GET 30C STATUS 

SAVE 

BUSY 

NO -SKIP 

YES-SET Q FOR TERMINATE BUFFER 

SET UP Q FOR CURRENT WORD AOOR 



SAVE CURRENT WORD ADDRESS 

STATION 3IT 

GET STATUS 

SAVE 

ALARM INTERRUPT 

YES-SKIP 

NO -JUMP 

ALARM INTERRUPT STATUS 



GET LEVEL 2 STATUS 

SAVE 

SET FLAG 

EOP 
YES-JUMP 

CLEAR MASK BIT 

RESTORE Q 
EXIT 

EOP INTERRUPT 
NO -JUMP 

EOP INTERRUPT STATUS 
SET FLAG 



INTR' 



NUM 





STQ- 


I 


LDQ- 


CHAN 


SQN 


1 


JMP* 


INTR 


ADQ- 


CONST+12 


NOP 





INP 


-1 


STA- 


BDCSTAT 


ANO- 


CONST+1 


SAZ 


2 


ADQ 


=N-$1000 


AOO- 


CONSTH1 


NOP 





INP 


-1 


STA- 


BDCCWA 


LDQ- 


EQUIP 


AOQ- 


STATION 


NOP 





INP 


-1 


STA* 


TEMP 


ANO- 


CONST «-5 


SAN 


1 


JMP* 


INTR1 


LOA* 


TEMP 


STA» 


ALAIS 


INQ 


2 


NOP 





INP 


-1 


STA* 


ALAIS2 


RAO- 


ALAIF 


LOA* 


TEMP 


AND- 


CONST+<» 


SAN 


INTRl-*-l 


TRM 


A 


STA* 


REG*2,I 


LOQ- 


I 


JMP* 


(INTPRC) 


LDA* 


TEMP 


AND- 


CONST+4 


SAZ 


INTR2-*-l 


LOA* 


TEMP 


STA* 


EOPIS 


RAO- 


EOPIF 


JMP* 


INTRA 


LOA* 


TEMP 



02544 
02545 



02547 
02546 
02549 
02550 
02551 
02552 
02553 
02554 
02555 
02556 
02557 
02558 



02559 
02560 
02561 
02562 
02563 
02564 
02565 
02566 
02567 
02568 
02569 
02570 
02571 
02572 
02573 
02574 
02575 
02576 
02577 
02578 
02579 
02580 
02581 
02582 

02583 
02584 
02585 
02586 
02567 
02588 
02589 
02590 
02591 
02592 
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2593 


PC866 


A0 6E 


259* 


P0867 


Olil 


2595 


P0868 


1821 


2596 


PQ869 


OA06 


2597 


P086A 


90F9 


2598 


P0863 


0105 


2599 


P086C 


0A07 


2600 


P086O 


90 F9 


2601 


P0 86E 


011A 


2602 


P086F 


COFB 


2603 


P0870 


0118 


260** 


P0871 


E0117 


2605 


P087? 


CAOO 




P0873 


033E 


2606 


P087* 


EOFA 


2607 


P0875 


0O3F 


2608 


P0876 


0311 


2609 


P0877 


D0O7 


2610 


P0878 


18E3 


2611 


P0879 


C81D 


2612 


P087A 


68ie 


2613 


P087Q 


DOOA 


261* 


P087C 


CftlO 


2615 


P087O 


0111 


2616 


P087u 


180A 


2617 


P087F 


L'OFA 


2613 


P0880 


oniF 


2619 


P0881 


0206 


2620 


P0882 


E0U7 


2621 


P0883 


6A00 




P088* 


C20C 


2622 


P0885 


0007 


2623 


P0886 


1805 


262* 


PQ887 


0000 


2625 


P0888 


1800 


2626 


P0889 


CSOO 


2627 


P088A 


60 OF 


2628 


P0883 


08** 


2629 


P088C 


6*00 




P0 881) 


0020 


2630 


P038F 


080C 


2631 


P088F 


6500 




PQ890 


01*2 


2632 


P0891 


0C1* 


2633 


P0892 


CA10 


263* 


P0893 


5800 




P089* 


013C 


2635 


HO 8 95 


18C6 



INTR^A 



TNTR, 



RtJt'vr 

INTR'i 



2637 P089fi 0000 TEMP 

26.58 '-'0397 0000 tkp 

2639 f'0898 0000 OATATS 

26*0 P0899 0000 EOPTS 



PAGE 75 



AND- 
SAN 
JMP* 
FN A 
SU8- 
SAZ 
ENA 
SUB- 
SAN 
L HA- 
SAN 
LOQ- 
LOA 

LOQ- 

INT 

OUT 

RAO- 

JMP* 

LOA* 

STA* 

RAO- 

LOA* 

SAN 

JMP» 

LOQ- 

INQ 

INP 

LDQ- 

STA 

RAO- 

JMP* 

NOP 

JMP* 

LDA* 

STA- 

CLP 

STA 

TRM 
STA* 

ENQ 
ENA 
PTJ 

JMP* 

NUH 
NUI1 
NUM 
NUM 



DATE* 01/C*/75 



CONST*3 
1 

intr* 

6 

SEC 

INTR2A-*-l 

7 

SEC 

INTR0-*-l 

CHAN 

INTR0-*-t 

COLUMN 

8UFFCUT+80,Q 

EQUIP 

«3F 

REJECT-* 

COLUMN 

INTRE 

TEMP 

OATATS 

OATAIF 

TMP 

1 

INTRA 

EQUIP 

$1F 

REJECT-* 

COLUMN 

BUFFIN+8n,Q 

COLUMN 

INTRE 



INTRA 

TEMP 

ACT 

A 

EXP 



REG#2,I 



21* 

$10 
ERRO". 

INTRL" 








DATA INTERRUPT 


02593 


YES -SKIP 


0259* 


NO -JUMP 


02595 




02596 


SECTION 6 


02597 


NO-SKIP 


02598 




02599 


SECTION 7 


02600 


NO-SKIP 


02601 


ON CHANNEL 


02602 


YES-SKIP 


02603 




0260* 


DATA TO OUTPUT 


02605 




02606 




02607 


OUTPUT DATA 


02608 


INCREMENT COLUMN COUNTER 


02609 




02610 




02611 


DATA INTERRUPT STATUS 


02612 


SET FLAG 


02613 


SECTION 10 


0261* 


YES -SKIP 


02615 


EXIT 


02616 




02617 




02618 


INPUT DATA 


02619 




02620 


STORE DATA 


02621 


INCREMENT COLUMN COUNTER 


02622 


EXIT 


02623 




0262* 




02625 


SET UP FOR ERROR 1* 


02626 


NO INTERRUPT STATUS 


02627 




02628 




02629 




02630 




02631 




02632 




02633 




0263* 




02635 




02637 




02638 




02639 




026*0 



60271300 
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DATE! 01/0*/75 



26*1 P089A 0000 
26*2 P089O 0000 



ALAIS 
ALAIS2 



NUH 
NUM 



026*1 
026*2 



26** P089C 0000 


DLYPAR 


NUM 





26*5 P089O 0A1O 




ENA 


$10 


26*6 P089E 5*06 




RTJ- 


(JUMP! 


26*7 P089F 181* 




JMP» 


0L3 


26*8 P08A0 E810 




LOO* 


INCR 


26*9 P08A1 C81B 


DL1 


LDA* 


DELAY 


2650 P08A2 083* 




AAQ 


A 


2651 P08A3 6819 




STA» 


OELAY 


2652 P08A* 0907 




INA 


7 


2653 P08A5 A087 




AND- 


H7FFF 


265* P08A6 OF** 




ARS 


* 


2655 P08A7 9800 




SUB 


PARAM* 


P08A8 FEE7 








2656 P08A9 010* 




SAZ 


0L2-*-l 


2657 P08AA 0133 




SAM 


DL2-»-l 


2658 P08AB 0852 




TCQ. 





2659 P08AC *811 




STQ* 


INCR 


2660 P08AO 18F3 




JMP» 


DL1 


2661 P08AE 8800 


0L2 


ADD 


PARAM* 


P08AF FEEO 








2662 poaeo 0112 




SAN 


0L3-*-i 


2663 P0881 0852 




TCQ 


Q 


266* P08B2 *809 




STQ» 


INCR 


2665 P0883 E809 


DL3 


LOQ» 


DELAY 


2666 P088* 0D07 




INO 


7 


2667 P0835 A087 




AND- 


H7FFF 


2668 P08B6 0F2* 




QRS 


* 


2669 P08B7 5807 


DL* 


RTJ» 


MILLT 


2670 P0888 01*2 




sqz 


0L5 


2671 P0889 OOFE 




INQ 


-1 


2672 P08BA 18FC 




JMP* 


DL* 


2673 P08BB 1CE0 


0L5 


JMP» 


(DLYPARI 


267* P08BC 0000 


DELAY 


NUM 





2675 P08BO 0000 


INCR 


NUM 






REPEAT CONDITIONS 



BRING UP INCREMENTER UQX) 
BRING UP LAST OELAY TIME (10X) 
ADD TOGATHER 
SAVE FOR NEXT PASS 



ROUND OFF C1X) 

CHECK IF OVER MAX LIMIT 

YES COMPLEMENT INCREMENTER 

REDO 

RESTORE NUMBER 

CHECK IF AT LOWER LI IT CO) 

YES COMPLEMENT INCREMENTER 

ROUND OFF (IX) 

DO ITERATIONS IN Q 



026** 
026*5 
026*6 
026*7 
026*8 
026*9 
02650 
02651 
02652 
02653 
41265* 
02655 

02656 
02657 
02658 
02659 
02660 
02661 

02662 
02663 
0266* 
02665 
02666 
02667 
02668 
02669 
02670 
02671 
02672 
02673 
0267* 
02675 
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A 



I \ 
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o 



) u 



CRPAOD 




PAGE 


75 


OATEl U 1/04/75 


2677 


♦DELAY 


ONE MILLISECOND 




2678 P08BE OOOO 


MILLI 


NUM 







2679 P08BF 4809 




STQ» 


MILLIQ 


SAVE Q 


2680 P08C0 C056 




LDA- 


SMMCNT 


SMM PARAHETER 


2681 P08C1 0F42 




ARS 


2 




2682 P08C2 0C03 




ENQ 


3 


MASK VALUE 


2683 P08C3 0682 




LAQ 


Q 


PUT INDEX VALUE IN Q 


2684 P08C4 CA05 




LDA* 


MILVAL, Q 




2685 P08C5 €803 




LOQ» 


MILLIQ 


RESTORE Q 


2686 P08C6 5807 




RTJ» 


CYCLES 




2687 P08C7 1CF6 




JMP» 


(HILLI) 




2688 P08C8 OOOO 


MILLIQ 


. NUM 


o .. 


Q REG TEMP SAVE • 


2689 P08C9 0129 


MILVAL 


NUM 


8129 


1.1US CONSTANT 


2690 P08CA 0OC1 




NUM 


SCI 


1.5US 


2691 P08CB017A 




•NUM ... 


$17A 


900 NS. 


2692 P08CC 0280 




NUM 


$280 


600 NS. 



PTC2 



02677 
02678 
02679 
02660 
02681 
02682 
02683 
0268 k 
02665 
02686 
02687 
02686 
02689 
02690 
02691 
02692 



2702 
2703 
2704 

2705 . 

2706 

2787 

2706 ..;....._... 
2709 

2710 
2711 

2712 P0802 0000 

2713 P0803 0622 

2714 P08D4 4600 
P08O5 019A 

2715 P08D6 1A01 



♦GENERATE PATTERN 

* CALLING SEQUENCE IS 



GEN 



FILL OUTPUT 

PATTERN * 

PATTERN 

PATTERN 

PATTERN 

PATTERN 

PATTERN 

NUM 

TRA 

STQ 



ENA 
RTJ- 
BUFFER AREA WITH PATTERN 
THO-FIVE (555, AAA, 555, 



X PATTERN NO. 

(GENERATE) 
NO. SPECIFIED IN. A. 
AAA, ETC.) 



= SHIFTED ONE (001, 002, 004, ,800 ,001,002 , ETC.) 

a SHIFTED ZERO «J?FE* FFO r FFB, — ,7FF,FFE,FFD,ETC. ) 

= RANDOM (NORO(Nfl) = WORQ(N) + ADOENO) 

a HALF-CARD (FIRST HALF OF CARD BLANK) 

sENOs-OF^FILECARO. (NO PARITY OR HOLE COUNT BITS) 



Q 

PATTNO 



SAVE PATTERN NO. FOR ERRORS. 



JHP^ 



»+i,Q 



02702 
02703 
02704 
02705 
02706 
02787 

02709 
02710 
02711 
02712 
02713 
02714 

02715 



2694 


♦DELAY X CYCLE TIMES 


2695 


♦ X IS THE NUMBER IN THE A-REGISTER. 


26.96. J»08Ca -OOOO 


CYCLES. - NUM 


2697 P06CE 09FE 


INA -1 


2696 P06CF 0131 


SAM 1 


-2699.-P08O0 18F0 


- ■-.,■.. ..:JMP* *"t 


2700 P08D1 1CFB 


MP* (CYCLES) 



02694 
02695 
02696 
02697 
02698 
02699 
02700 
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DATE! 01/0^/75 



2716 


PQ80 7 


1806 


2717 


P0808 


1817 


2718 


P08D9 


18 30 


2719 


P08OA 


1832 


2720 


P08DB 


1850 


2721 


P080C 


1862 


2723 


P08DO 


COOO 




P08DE 


0555 


272* 


P08DF 


0CB1 


2725 


P08EO 


6A00 




P08E1 


02CE 


2726 


P08E.2 


eooo 




P08E3 


OFFF 


2727 


P08E4 


onoi 


2728 


P08E5 


0141 


2729 


P08E6 


18F9 


2730 


P08E7 


0344 


2731 


P08E8 


6800 




P08E9 


02C6 


2732 


P08EA 


COOO 




P08E8 


0104 


2733 


P08EC 


6800 




P08EO 


02C3 


273«» 


P08EE 


1CE3 


2736 


P08EF 


0A01 


2737 


P08F0 


0CB1 


2738 


P08F1 


40FF 


2739 


P08F2 


6900 




P08F3 


02 BC 


27^0 


P08F*» 


0842 


27<il 


P08F5 


0FE5 


27*»2 


P08F6 


OFCC 


27«»3 


P08F7 


0834 


ZlUk 


P08F8 


DOFF 


2745 


P08F9 


EOFF 


2746 


P08FA 


DIM 


27«»7 


P08FB 


18F6 


2748 


P08FC 


0A3F 


2749 


P08FD 


6800 




P08FE 


02B1 


2750 


P08FF 


0A01 


2751 


P090H 


D80C 




P0901 


0260 


2752 


P0902 


01H2 


2753 


PQ90 3 


COOO 




P090«t 


03nc 


275^ 


PQ905 


095** 



PATT1 



PATTOA 



PATTt 



PATTIA 



JMP» 
JMP» 
JMP* 
JHP* 
JHP» 
JMP» 



LOA 

ENQ 
STA 

EOR 

INQ 

sqz 

JMP» 

CLP 

STA 

LOA 

STA 

JHP* 



ENA 
ENQ 
STQ- 
STA 

CLR 
LLS 

ALS 

AAQ 

RAO- 

LDQ- 

SQZ 

JMP*' 

ENA 

STA 

FNA 
EOR 

SAZ 
LOA 

INA 



PATTO 
PATT1 
PATT2 
PATT3 
PATT4 
PATT5 



*NS0555 

-78 
BUFF0UT+78,Q 

aNSOFFF 

1 

1 

PATTOA 

A 

BUFFOUT+78 

=N46a 

BUFFOUT+79 

(GEN) 



1 

-78 

I 

BUFFOUT+78,1 

Q 

5 

12 

A 

I 

I 

1 

PATTIA 

$3F 

8UFF0UT+78 



OUFFOUT 



2 

=N780 



6k 



555 



AAA 



PARITY. 



HOLE COUNT. 



001 



SHIFT 12-BIT WORD LEFT 

ONE PLACE ENO-AROUNO. 



PARITY FOR BOTH PATTERNS 1+2, 



HOLE COUNT = 864 FOR PATTERN ?♦ 
84 FOR PATTERN 1. 



02716 
02717 
02718 
02719 
02720 
02721 



02723 

0272* 
02725 

02726 

02727 
02728 
02729 
02730 
02731 

02732 

02733 

02734 



02736 
02737 
02738 

02739 

027*0 
027*1 
027*2 
027*3 
027** 
027*5 
027*6 
027*7 
027*8 
027*9 

02750 
02751 

02752 
02753 

0275* 
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CRPA0O 




PAGE 


77 


2755 


P0906 6800 
P0907 02A9 




STA 


BUFFOUT+79 


2756 


P0908 1CC9 




JMP* 


(GEN) 


2758 


P0909 C000 
P090A OFFE 


PATT2 


LOA 


=N$0FFE 


2759 


P090B IRE* 




JMP* 


PATT1+1 


2761 


PQ90C C077 


PATT.l 


LOA- 


CONST+12 


2762 


P0900 5*06 




RTJ- 


(JUMP) 


2763 


P090E 1805 




JMP* 


BASE-1 


276i» 


P090F COOO 
P0910 091* P 




LOA 


=XBASE 


2765 


P0911 0C01 




ENQ 


1 


2766 


P0912 5*07 




RTJ- 


(GFNRAN1 


2767 


P0913 COOO 




LDA- 





2768 


P091* 1728 


BASE 


NUM ■ 


$1728 


2769 


P0915 AOOO 
P0916 OFFF 




AND 


=N$0FFF 


2770 


P0917 68FC 




STA* 


BASE 


2771 


P0918 6800 
P0919 02*8 




STA 


BUFFOUT 


2772 


P091A 6800 
P091U 02*7 




STA 


BUFFOUT+1 


2773 


P091C 0822 




TRA 


Q 


277* 


P0910 0AQ3 




ENA 


-76 


2775 


P091E 60FF 




STA- 


I 


2776 


P091F *90Q 
PQ920 028F 


PATT^A 


STQ 


BUFFOUT* 78, I 


2777 


P0921 F8F2 




ADO* 


BASE 


2778 


P0922 ao** 




CLR 


A 


2779 


P0923 QFE* 




LLS 


* 


2780 


P0924 OFAC 




QLS 


12 


2781 


P0925 0832 




AAQ 


Q 


2782 


P0926 DOFF 




RAO- 


I 


2783 


P0927 COFF 




LOA- 


I 


278* 


P0928 0101 




SAZ 


1 


2785 


P0929 18F5 




JMP* 


PATT3A 


2786 


P092A 1820 




JMP* 


PARITY 


2788 


P0928 03*«» 


PATT'i 


GLR 


A 


2789 


P092C 0C31 




ENQ 


-78 


2790 


P092O 6A0O 
P092E 0281 


PATT4A 


STA 


BUFF0UT+78,Q 


2791 


P092F 01)01 




INQ 


1 


2792 


F0930 01*1 




SQZ 


1 


2793 


P0931 18FB 




JMP* 


PATT^A 



DATEI f)l/0*/75 



FFE 



CHECK STOP/ JUMP 12. 

USE OLD BASE WORD IF SET. 



GENERATE RANDOM NUMBER, 
BASF WORD. 

FIRST WORO - SECONO WORD. 



12-BIT AOO TO FORM NEXT WORD. 



ALL COLUMNS ZERO EXCEPT *0,79 t 80 



02755 
02756. 

02758 
02759 



02761 
02762 

02763 
0276* 

02765 
02766 
02767 
02768 
02769 

02770 
02771 

02772 

02773 
0277* 
02775 
02776 

02777 
02778 
02779 
02780 
02761 
02782 
02763 
0278* 
02765 
02786 



02788 
02789 
02790 

02791 
02792 
02793 
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CRPAOD 


2794 


P0932 


COOO 




P0933 


0801 


2795 


P0934 


E800 




P0935 


FE59 


2796 


P0936 


6A00 




P0937 


0229 


2797 


P0938 


6800 




P0939 


0276 


2798 


P093A 


QA04 


2799 


P093B 


6800 




P093C 


0274 


2800 


P093D 


1C94 


280Z 


P093E 


0A03 


2803 


P093F 


6800 




PQ940 


0221 


280V 


P0941 


0844 


2805 


P0942 


0C80 


2806 


P0943 


6A00 




P0944 


026D 


2807 


P0945 


0O01 


2808 


P0946 


0141 


2809 


P0947 


18FB 


2810 


P0948 


1C00 




P0949 


FF88 



PAGE 


78 




LDA 




=N$8Q1 


LOQ 




PARAM3 


STA 




8UFF0UT-1,Q 


STA 




QUFFOUT+78 


ENA 
STA 




4 

BUFF0UT*79 


JMP* 




<GEN> 



DATE! 01/04/75 



PATT<3 



PATTSA 



ENA 
STA 

CLR 
ENQ 
STA 

INO 
SQZ 
JHP» 
JI1P 



PARITY. 
HOLE COUNT. 

ENO-OF-FILE PATTERN. 



BUFFOUT 

A 

-79 

BUFFOUT+8Q,Q 

1 
1 

PATT5A 
(GEN) 



02794 

02795 

02796 

02797 

02798 
02799 

02800 



02802 
02803 



02804 
02805 
02806 

02,807 
02*44 

6&m 

02810 



2813 




♦DETERMINE PARITY 


AND HOLE COUN 


2814 


P094A 0844 


PARITY 


CLR 


A 


2815 


P0949 0C81 




ENQ 


-78 


2816 


P094C BAOQ 
P094O 0262 




EOR 


BUFF0UH-78»Q 


2817 


P094E 0O01 




INQ 


1 


2818 


P094F 0141 




SQZ 


1 


2819 


P0950 18FB 




JMP* 


*-4 


2820 


P0951 6800 
P0952 025D 




STA 


BUFFOUT+78 


2821 


P0953 0844 




CLR 


A 


2822 


P0954 OCBO 




ENQ 


-79 


2823 


P0955 6800 
P0956 025A 




STA 


8UFF0UH-79 


2824 


P0957 40FF 




STQ- 


I 


2825 


P0958 0CF3 


PYA 


ENQ 


-12 


2826 


P0959 C900 
P095A 0256 




LDA 


BUFFOUT+79,1 


2827 


P095B 0FC3 




ALS 


3 


2828 


P095C 0O01 


PYB 


INQ 


1 



STORE PARITY COLUMN, 



02813 
02814 
02815 
02816 

02817 
02818 
02819 
02820 

02821 
02822 
02823 

02824 
02825 
02826 

02827 
02828 
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CRPAGO 


2829 


P0 95O 


0FC1 


2830 


P095E 


0122 


2831 


P095F 


D800 




P0960 


0250 


2832 


P0961 


01*1 


2833 


P0962 


18F9 


283W 


PI3963 


DOFF 


2835 


P0964 


COFF 


2836 


P0965 


0101 


2837 


P0966 


18F1 


2838 


P0967 


1C00 




P0968 


FF69 


28*0 






28*1 


P0969 


8D0A 


28*2 


P096A 


53*5 




P096B 


5420 




PQ96C 


5C52 




P096D 


*F5* 




P096E 


2E20 




P096F 


5357 




P0970 


*95«» 




P0971 


*348 




P0972 


20 *F 




P0973 


*E20 




P097* 


3137 




P0975 


583* 




P0976 


2C20 




P0977 


*1*E 




P0978 


*«»20 




P0979 


3137 




P097A 


3238 




P0973 


2C20 




P097C 


kSkC 




P097D 


45*1 




Poy?E 


5220 




P097F 


53*5 




P0980 


*C20 




P0981 


5354 




P0982 


*F50 


28*3 


P0983 


8O0A 


28** 


P098* 


*849 




PQ985 


5420 




P0986 


474F 




P0987 


2C20 




P0988 


<4940 




P0989 


4045 




P098A 


4449 




P098B 


4154 




P098C 


454C 




P098O 


5920 




P098E 


531*5 
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79 


ALS 


1 


SAP 


2 


RAO 


BUFFOUT+79 


SQZ 


1 


JMP* 


PYB 


RAO- 


I 


LOA- 


I 


SAZ 


1 


JMP* 


PYA 


JMP 


(GEN) 



OATEI 01/04/75 



•MESSAGE TO OPERATOR IN SECTION 12 
MESSO NUM fSOOA 

ALF Z,SEr P9.0T, SWITCH ON 17X4 t AND 1728, CLEAR SEL ST0P2 



02829 
02830 
02831 

02332 
02833 
0283*1 
02835 
02836 
02837 
02838 



028*0 
028*1 
028*2 



NUM 
ALF 



38DGA 

Z»HIT GO, IMMEDIATELY SET SEL STOP Z 



028*3 
02844 



PAGE 79 



CRPAOO 



PAGE 8 



DATEt 01/04/75 



P098F 5420 

P0990 5345 

P0991 *»C20 

P0992 535<i 

P0993 4F50 

PQ994 2020 

28«»5 P0995 8D0A 



MESSD 



NUM 



S800A 



02845 



2847 

2848 P0996 4341 
P0997 5553 
P0998 4520 
P0999 414C 
P099A 4152 
P099B 4020 
P099C 4F4E 
PQ99D 2031 
P099E 3732 
P099F 3820 
P09A0 2O20 
P09A1 2845 
P09A2 4D50 
P09A3 5459 
P09At» 2049 
PQ9A5 4E50 
P09A6 5554 
P09A7 2048 
P09A8 4F50 
P09A9 5045 
P09AA 5220 
P09AB 414E 
P09AC M»20 

2849 P09AO 8O0A 

2850 P09AE *»041 
P09AF 4B45 
P09B0 2031 
P09R1 3732 
P09B2 3820 
P09B3 4E«fF 
P09Bi» 5420 
P09B5 5245 
P09B6 4144 
P09B7 5929 
P09B8 2C20 
P09B9 k6k9 
P09BA 5420 
P09B8 47*fF 
P09BC 2020 

2851 P09BD 8D0A 

2852 P09BE h3kC 
P09BF 4541 
P09CO 5220 



♦MESSAGF TO OPERATOR IN SECTION 13 

ALF Z^CAUSE ALARM ON 1728 - <EMPTY INPUT HOPPER ANO Z 



02847 
0284* 



NUM 
ALF 



S8D0A 
Z,MAKE 



1728 NOT READY), HIT GO Z 



02849 
02850 



MFSSE 



NUM 
ALF 



J8D0A 

Z, CLEAR PROT. SWITCH 



ON 17X4 AND 1728, HIT GO Z 



02851 
02852 
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CRPAOD 




P09C1 


5H52 




P09C2 


«»F54 




P09C3 


2E20 




P09C*» 


5357 




PD9C5 


4954 




P09C6 


4348 




P09C7 


204F 




P09C8 


4F20 




P09C9 


3137 




P09CA 


583«» 




P09CB 


2041 




P09CC 


4F.44 




P09CU 


2031 




PQ9CE 


3732 




P09CF 


382C 




P09D0 


2048 




P09D1 


4954 




P09D2 


20 47 




P0903 


4F20 


2853 


P09O4 


8D0A 



PAGL 81 



DATE* 01/0*»/75 



MFSSF 



NUH 



3SD0A 



02853 



2855 






*CHECK OATA READ 1 


■ROM CARO 


2856 


P0905 


0000 


CHECK NUH 





?857 


P0906 


0»M» 


CLR 


A 


2858 


P09D7 


6009 


STA- 


EOFFLAC 


2859 


P09D8 


60E2 


STa- 


OFFSTF 


2860 


P0909 
P09OA 


C800 
0136 


LLJA 


RUFFTN 


28G1 


PD908 


0822 


TRA 


Q 


2862 


P090C 


0111 


SAN 


1 


2863 


P09D1 


1837 


JMP» 


CHKi* 


2864 


P03DL 
P090F 


BOOtl 
0132 


EOR 


dUFFTN+1 


2865 


P09E0 


0111 


SAN 


1 


2866 


P09E1 


182A 


JMP* 


CHK3 


2867 


P09E2 
P09E3 


COCO 
0555 


Li) A 


=NJ0555 


2860 


P09E4 


03 74 


EAQ 


A 


2869 


P09E5 


0111 


SAN 


1 


2870 


P01E6 


181F 


JMP* 


CHKC 


2871 


P09E7 


0A01 


ENA 


1 


2872 


P0 9E8 


087«» 


EAQ 


A 


2873 


P09E9 


0111 


SAN 


1 


2874 


P09EA 


1810 


JMP* 


CHKI 



CLFAR FND-OK-FILE FLAG. 
CLEAR OFFSET FLAG. 



CHECK WHETHfR COLUMN 1 = 000. 
IF S3, LXPECT PATTERN «♦. 
CHECK WHETHFrf COL 1 = COL 2. 



IF SOi EXPECT PATTERN 3. 

CHECK WHETHER COLUMN 1 = 555. 

IF SO, EXPLCT PATTERN 0. 

CHECK WHETHER COLUMN I = 01. 
IF SO, hXPECT PATTERN 1. 



02855 
02356 
02857 
02858 
02859 
02860 

02861 
02862 

02863 
02864 

02865 
02866 
02867 

02868 
02869 
02870 
02871 
02872 
02873 
02874 
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2875 

2876 
2877 
2878 
2879 
2880 
2681 
2882 



P09EB 
P09EC 
P09EO 
P09EE 
P09EF 
P09FO 
P09F1 
P09F2 
P09F3 



COOO 
OFFE 
0874 
0111 
181A 
0A03 
0874 
0111 
18 2C 



PAGE 


82 


LOA 


=N$OFFE 


EAO 


A > 


SAN 


1 


JMP» 


CHK2 


ENA 


3 


EAQ 


A 


SAN 


1 


JMP» 


CHK5 



DATEt 01/04/75 



CHECK WHETHER COLUMN 1 * FFE, 
IF SO, EXPECT PATTERN 2. 
CHECK WHETHER COLUMN 1 = 003* 
IF SO, EXPECT PATTERN 5.- 



02875 

02876 
02877 

02878 
02879 
02880 
02881 
02682 



2884 
2685 
2686 
2887 
2888 

2889 
2890 

2891 
2892 
2893 
2694 
2895 

2896 
2897 



♦CANNOT IDENTIFY PATTERN 



P09F4 0A06 
P09F5 687A 
P09F6 OOE2 
P09F7 C800 
P09F8 0118 
P09F9 600F 
P09FA E800 
P09FB 0116 
P09FC 40EO 
P09FD 0C12 
P09FE 0A10 
P09FF 5851 
P0A00 COOO 
P0A01 0A37 
P0A02 64F8 
P0A03 1800 
P0A04 FF45 



CHECKA 



ENA 
STA» 
RAO- 
LOA 

STA- 

LOQ 

STQ- 

ENQ 
ENA 
RTJ» 
LOA 

STA- 
JMP PARITY 



6 

PATTNO 
OFFSTF 
BUFFIN 

ACT 
8UFFINU 

EXP 
$12 

$10 

ERROR 

=XCHKPAR 

(GENERATE) 

GENERATE 



PATTERN NO* ■■ 6 FOR ERRORS. 
SET OFFSET FLAG. 
DISPLAY FIRST TWO COLUMNS 

IN ERROR MESSAGE. 



ERROR 12, UNIDENTIFIED PATTERN. 
3 STOPS. 

PARITY AND HOLE COUNT WILL BE 

SET UP RETURN FROM SUBROUTINE. 
PARITY AND HOLE COUNT 



02884 
02885 
82886 
02887 
02888 

02889 
02898 

02891 
02692 
02893 
02894 
02895 

02896 
02897 



2899 P0A05 0844 

2900 P0A06 181B 



CHKO 



CLR 
JMP* 



A 
CHECKB 



PATTERN 0, TWO-FIVE 



02899 
02900 



2902 P0A07 0A01 

2903 P0A08 1819 



CHKt 



ENA 
JMP* 



1 

CHECKB 



PATTERN 1, SHIFTING ONE. 



02902 
02903 



2905 P0A09 0A02 

2906 PQAOA 1817 

2907 POAOB 4800 
POAOC FF07 

2908 POAOD 0A03 

2909 POAOE 6861 

2910 POAOF COOO 
P0A10 0A22 

2911 P0A11 64F8 

2912 P0A12 1800 
P0A13 FEFF 



CHK2 



CHK3 



ENA 

JMP» 

STQ 

ENA 

STA* 

LDA 

STA- 
JMP 



2 
CHECKB 

BASE 

3 

PATTNO 

=XCHECKC 

(GENERATE) 
BASE-1 



PATTERN 2, SHIFTING ZERO. 
STORE BASE WORD. 

STORE PATTERN NO. FOR ERRORS. 



SET UP RETURN FROM SUBROUTINE. 
GENERATE RANDOM PATTERN. 



02905 
02906 
02907 

02908 
02909 
02910 

02911 
02912 
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DATE! Ql/Qk/75 



2914 P0A14 0844 


CHK4 


CLR 


A 


2915 P0A15 OC4F 




ENQ 


79 


2916 P0A16 8A00 


CHKt)A 


AOD 


BUFFTN,Q 


P0A17 OGF9 








2917 POA18 0114 




SAN 


CHK4C-*-! 


2918 POA19 0142 




SQZ 


CHK4B-*-l 


2919 POA1A OOFE 




INQ 


-1 


2920 P0A19 18FA 




JMP» 


CHK4A 


2921 P0A1C 18EE 


CHK43 


JMP* 


CHK3 


2922 P0A1D 0A04 


CHK4C 


ENA 


4 


2923 P0A1E 1803 




JMP» 


CHECKS 


2925 P0A1F 0A05 


CHK5 


ENA 


5 


2926 P0A20 0009 




RAO- 


EOFFUG 


2927 P0A21 54F8 


CHECKS 


RTJ- 


(GENERATE) 


2929 P0A22 0AO1 


CHECKC . 


.ENA 


1 


2930 P0A23 6007 




STA- 


COLUMN 


2931 P0A24 E007 


CHECKO 


LDQ- 


COLUMN 


- 2932 P0A25 CAOO 




LDA 


BUFFIN-ltQ 


P0A26 00E9 








2933 P0A27 EAOO 




LDQ 


BUFFOUT-l.Q 


P0A28 0138 .... 








2934 P0A29 60QF 




STA- 


ACT 


2935 P0A2A 40E0 




STQ- 


EXP 


- 2936 P0A28 0*74 




EAq: 


... ..A .'.:.....-■ 


2937 P0A2C 010C 




SAZ 


CHECKE-*-l 


2936 P0A2O O0E2 




RAO- 


OFFSTF 


2939 P0A2E.OC.10 ... 




ENQ 


.,. $10 .. 


2940 P0A2F 0A2Q 




ENA 


$20 


2941 PDA30 5820 




RTJ» 


ERROR 


• 2942 P0A31.8A1Q - 




ENA 


....$to... 


2943 P0A32 5406 




RTJ- 


(JUMP) 


2944 P0A33 1806 




JMP» 


CHECKS 


..2.945PQA34-0A.B0- 


.... . 


-ENA 


■ ..-79... 


2946 P0A35 8007 




ADD- 


COLUMN 


2947 PQA36 0122 




SAP 


CHECKE-»-l 


2948 P0A37- 0A4F 


CHKPAR - 


ENA 


79 


2949 P0A38 18EA 




JMP» 


CHECKO-1 


2950 P0A39 0007 


CHECKE 


RAO- 


COLUMN. 


2951 P0A3A C007 




. LDA- 


COLUMN 


2952 P0A3B 09AE 




ZNA 


-.81 


2953 P0A3C 0121 




SAP 


1 


2954 POA30 18E6 




JMP* 


CHECKO 


2955 P0A3E 1C0O 




JMP 


(CHECK) 


P0A3F FF95 









SKIP IF SINGLE COLUMN PATTERN 
SKIP IF RANDOM PATTERN 



PATTERN 5, END-OF-FILE. 
SET END-OF-FILE FLAG. 
GENERATE PATTERN. 



INITIALIZE COLUMN COUNTER. 
ACTUAL DATA. 
EXPECTEO DATA. 

SAVE FOR ERROR MESSAGE. 

COMPARE OATA. 
SKIP IF OKAY. 
SET OFFSET FUG. 
ERROR 10, DATA ERROR. 

4 STOPS. 



CHECK STOP/JUMP BIT 4. 
CONTINUE CHECKING IF SET. 



CHECK PARITY AND HOLE COUNT. 
INCREHENT COLUMN COUNT. 

LOOP IF NOT COLUMN 80. 



02914 
02915 
02916 

02917 
02918 
02919 
02920 
02921 
02922 
02923 



02925 
02926 
02927 



02929 

v 02930 

02931 

02932 

02933 

02934 
82935 
$2996 
02937 
02938 
02939 
029*0 
02941 
-02942 
02943 
02944 

-02945 

02946 
0294? 
- 02948 
02949 
02950 
02951 
02952 
02953 
02954 
02955 
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OATEI 01/04/75 



2957 


•OFFSET 


EN0-0F-F1 


LE CARO. W 


2958 P0A40 00 00 


OFFSET 


NUM 





2959 P0A41 EOFA 




LOQ- 


EQUIP 


2960' P0A42 0D40 




INQ 


240 


2961 P8A43 COOO 




LOA 


*N$018i 


P0A44 0181 








2962 P0A45 03FE 




OUT 


-1 


2963 P0A46 OAEi 




ENA 


-30 


2964 P0A47 6006 




STA- 


TIME 


2965 P0A48 54E5 




RTJ- 


(SMM) 


2966 P0A49 5800 


0FFST1 


RTJ 


MILLI 


PQA4A FE73 








2967 P0A4B 0006 




RAO- 


TIME 


2968 P0A4C C006 




LDA- 


TIME 


2969 P0A4D 0121 




SAP 


1 


2970 P0A4E 18FA 




JMP» 


OFFST1 


2971 PQA4F ICFO 




JHP» 


(OFFSET) 



EQ. NO., QOO SET. 
SET 006 ISTATION 21." 
SET AQ8, A0 7, AND A00. 

SELECT FEED, CLEAR, AND OFFSET. 

INITIALE TIME 

GO TO MONITOR ANO SACK. 

OELAY 1 MSEC 

INCREMENT TIME COUNTER. 



OELAY 30 MSEC FOR OFFSET 



02957 
82958 
82959 
02960 
82961 

02962 
82963 
0296* 
02965 
82966 

02967 
02968 
02969 
02970 
02971 



2973 
2974 
2975 
2976 

2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 



P0A50 0000 
P0A51 8000 
P0A52 0O08 
P0A53 6816 
P0A54 C0F9 
P0A55 0FC8 
P0A56 0834 
P0A57 6813 
P0A58 C8F7 
P0A59 6812 
P0A5A C074 
P0A5B 5406 
P0A5C 1804 
P0A5O C8F2 



•ERROR. STOP 

* ENTER WITH ERROR CODE IN Q, NO. OF STOPS (SHIFTED 4) IN A. 

ERROR NUM 

AOtJ =N$0008 TEST NO. * OD. ERROR STOP. 

IOENT WORO. 



SECTION NO., ERROR CODE. 
RETURN AOORESS IN MEMORY. 
STORE WITH BIAS 



RTN AOORESS WITH BIAS 

SUBTRACT TA AND STORE LIST AODR 



STA» 


ID 


LOA- 


SEC 


ALS 


8 


AAG. 


A 


STA* 


SECERR 


LOA* 


ERROR 


STA» 


RETAODR 


LDA- 


BIT9 


RTJ- 


(JUMP) 


JMP* 


ABIAS 


LOA* 


ERROR 



02973 
02974 
02975 
02976 

02977 
02978 
82979 
02960 
02981 
02982 
02983 
02984 
02965 
02986 
02987 
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PAGE 


85 


2988 


P0A5E 


90D8 




SUB- 


BIAS 


2989 


P0A5F 


6B0C 




STA* 


RETAODR 


2990 


P0A60 


COUF 


ABIAS 


LOA- 


ACT 


2991 


P0A61 


68 08 




STA* 


ACTUAL 


2992 


P0A62 


COEO 




LOA- 


EXP 


2993 


P0A63 


680A 




STA* 


EXPECTED 


299* 


P0A6* 


C0D7 




LDA- 


COLUMN 


2995 


P0A65 


6809 




STA» 


COL 


2996 


P0A66 


08** 




CLR 


A 


2997 


P0A67 


5*02 




RTJ- 


(STOPX) 


2998 


P0A68 


1CE7 




JMP* 


(ERROR) 


2999 


P0A69 


0O08 


10 


NUM 


JQD08 


3000 


P0A6A 


0000 


SECERR 


NUM 





3001 


P0A6B 


0000 


RETADOR 


NUN 





3002 


P0A6C 


04)00 


ACTUAL 


NUM 





3003 


POA60 


0000 


EXPECTED 


NUM 





300* 


P0A6E 


0000 


COL 


NUM 





3005 


P0A6F 


0000 


PATTNO 


NUM 






DATE! Ql/0*/75 



RETURN ADDRESS. 



TEST NO. 00 t ERROR STOP, 
SECTION, ERROR. 
RETURN ADDRESS. 

ACTUAL. 
EXPECTED. 
COLUMN NUMBER. 
PATTERN NUMBER. 



02988 
02989 
02990 
02991 
02992 
02993 
0299* 
02995 
02996 
02997 
02998 
02999 
03000 
03001 
03002 
03003 
0300* 
03005 



3007 
3008 
3009 
3010 
3011 
3012 
3G13 
301* P0A70 0000 

3015 P0A71 C8FE 

3016 P0A72 09U1 

3017 P0A73 GCO* 

3018 P0A7«t 183D 



♦ERROR *, UNEXPECTED INTERNAL REJECT 

* CALLING SEQUENCE IS (FOR EXAMPLE) 



ERR* 



P-2 


OUT 2 


P-l 


REPLY 


P 


RTJ- (ERRORS) 


P+t 


EXTERNAL REJECT. 


P+2 


RETURN. 


NUM 





LOA* 


ERR«» 


INA 


1 


E.NQ 


* 


JMP* 


STOP? 



OUTPUT (OR INPUT). 
UNEXPECTED INTERNAL REJECT. 
SUBROUTINE RETURNS TO HERE. 



FORM P+2, RETURN ADDRESS. 
ERROR COOE *, INTERNAL REJECT. 
2 STOPS. 



03007 
03008 
03009 
03010 
03011 
03012 
03013 
0301* 
03015 
03016 
03017 
03018 



3020 
3021 
3022 
3023 
302* 
3025 
3026 
3027 P0A75 0000 



•ERROR 5, UNEXPECTED EXTERNAL REJECT 

» CALLING SEQUENCE IS (FOR EXAMPLE) 



ERR 5 



P-3 


OUT ? 


P-2 


REPLY 


P-i 


INTERNAL REJECT 


P 


RTJ- (ERROR5) 


P*l 


RETURN. 


NUM 






OUTPUT (OR INPUT). 



UNEXPECTED EXTERNAL REJECT. 
SUBROUTINE RETURNS TO HERE. 



03020 
03021 
03022 
03023 
0302* 
03025 
03026 
03027 
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DATEI Ci/0*/75 



3028 P0A76 C8FE 

3029 P0A77 0C05 

3030 P0A78 1839 



LDA» 

ENQ 

JMP» 



ERR5 

5 

STOP2 



P*l* RETURN ADDRESS. 03028 

ERROR COOE 5, EXTERNAL REJECT. 03029 

2 STOPS. 838*8 



3032 

3033 

303* 

3035 

3036 

3037 

3038 

3039 P0A79 0000 

30*0 P0A7A C8FE 

30*1 P0A7B 0902 

30*2 P0A7C 0C06 

30*3 P0A7D 183* 



♦ERROR 


6* UNE 


* 


call: 


* 


P-i 


*. . . 


P 


* 


P+l 


* 


P+2 


♦ ... . .. 


P+3 


ERR6 


NUM 




LDA* 




INA 




ENQ 




JMP» 



UNEXPECTED REPLY 

SEQUENCE IS (FOR EXAMPLE) 

OUT 2 OUTPUT COR 

RTJ- (ERRORS) UNEXPECTED 

INTERNAL REJECT. 
REJECT. 



INPUT) 
REPLY. 



EXTERNAL 

RETURN - 



ERR6 

2 

6 

ST0P2 



SUBROUTINE- RETURNS TO HERE. 



FORM P+3» RETURN ADDRESS. 
ERROR COOE 6, UNEXPECTED REPLY. 
2 STOPS. 



03032- 

03033 

0303* 

0303.5- 

03036 

03037 

-83438 
03039 
030*0 

-• 03841 
038*2 
030*3 



30*5 




♦ERROR 


7, UNE 


30*6 




. * .'. 


ENTE1 


30*7 




* 


DISPI 


30*8 P0A7E 


0000 


ERR7 


NUM 


30*9 P0A7F 


0111 




SAN 


3050 PQA80 


1CFO 




JMP^ 


3051 P0A81 


80DF 




EOR- 


3052 P0A82 


60E0 




STA- 


3053 P0A83 


C8FA 




LDA^ 


305* P0A8* 


0C07 




ENQ 


3055 P0A85 


182F 




JMP^ 



UNEXPECTED LEVEL 1 STATUS 
ENTER WITH FAILING BITS (IF ANY) IN A-REGISTER. IF FAILURE* 
DISPLAY ACTUAL STATUS IN A, EXPECTED STATUS IN Q. 





1 

(ERR7) 

ACT 

EXP 

ERR7 

7 

ST0P3 



EXIT IF NO STATUS BITS FAILED. 
TORN EXPECTED STATUS. 
SAVE FOR ERROR MESSAGE. 
RETURN ADDRESS. 
ERROR 7» UNLXPECTEO STATUS. 
3 STOPS. 



030*5 
830*6 
030*7 
030*8 
030*9 
03050 
03091 
03052 
03053 
8305* 
03055 



3057 
3058 
3059 

3060 P0A86 0000 

3061 P0A87 011C 

3062 P0A88 1CFD 

3063 P0A89 CODO 
306* P0A8A A070 

3065 P0A88 0112 

3066 P0A8C CODF 

3067 POA80 1807 

3068 P0A8E CODF 



♦ERR09 8, UNEXPECTED LEVEL 2 STATUS. 



ERR8 



ENTER WITH FAILING BITS (IF ANY) IN A-REGISTER. IF FAILURE, 
DISPLAY ACTUAL STATUS IN A, EXPECTED STATUS IN Q. 



ERR8A 



NUM 





SAN 


ERR8C-»-l 


JMP^ 


(ERR8) 


LOA- 


STATION 


ANO- 


BIT5 


SAN 


ERR8A-»-l 


LOA- 


ACT 


JMP» 


ERR8C 


LOA- 


ACT 



EXIT IF NO STATUS BITS FAILED; 



03057 
03058 
03059 
03860 
03061 
03062 
03063 
0306* 
03065 
03066 
03067 
03068 
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3069 P0A8F B074 

3070 P0A90 0111 

3071 PQA91 1CF4 

3072 P0A92 0A74 

3073 P0A93 1802 

3074 P0A9*f BOOF 

3075 P0A95 60E0 

3076 P0A96 C8EF 

3077 P0A97 OC08 

3078 P0A98 181C 



ERR8K 



ERR8C 



PAGE 


87 


EOR- 


BIT9 


SAN 


ERR83-*-l 


JMP* 


CERR81 


ENH 


BIT9 


JMP» 


ERR8C+1 


EOR- 


ACT 


STA- 


EXP 


LOA* 


ERR 8 


ENQ 


8 


JMP* 


STOP3 



DATE* 01/04/75 



SAVE FOR ERROR MESSAGE. 
RETURN ADDRESS. 

ERR 8, UNEXPECTED LEVEL 2 STAT. 
3 STOPS. 



03069 
03070 
03071 
03072 
03073 
03074 
03075 
03076 
03077 
03078 



3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 



P0A99 
PQA9A 
P0A9B 
P0A9C 
P0A9D 
P0A9E 
P0A9F 
POAAO 
P0AA1 
P0AA2 
P0AA3 



0000 
CODA 
0101 
1CFC 
EOOD 
54E6 
081*2 
liOEO 
C8F7 
OC09 
1811 



♦ERROR 9, NO DATA INTERRUPT WHEN EXPECTED. 

* DISPLAY CURRENT STATUS IN A IF NO DATA INTERRUPT OCCURRED. 

ERR9 

CHECK DATA INTERRUPT FLAG. 

EXIT IF SET. 

GET STATUS OF CURRENT STATION. 



RETURN ADDRESS. 

ERROR 9, NO DATA INTERRUPT, 

3 STOPS. 



NUH 





LDA- 


DATAIF 


SAZ 


1 


JMP* 


(ERR9K 


LOQ- 


STATION 


RTJ- 


(STATUS) 


CLR 


Q 


STQ- 


EXP 


LDA»' 


ERR9 


ENQ 


9 


JMP* 


ST0P3 



03080 
03081 
03082 
03083 
03004 
03885 
03086 
03087 
03088 
03089 
03090 
03091 
03092 



3094 
3095 
3096 
3097 
3098 
3099 
3100 

3101 
3102 
3103 
310<f 
3105 
3106 
3107 



P0AA<» 
P0AA5 
P0AA& 
P0AA7 
P0AA8 
P0AA9 
POAAA 
POAAB 
POAAC 
POAAO 
POAAE 
POAAF 
P0A80 



0000 
CODA 
0111 
1CFC 
C800 
FDEE 
60DF 
0842 
40E0 
40OA 
C8F5 
OCOA 
1804 



♦ERROR A, UNEXPECTED DATA INTERRUPT 

♦ DISPLAY STATUS UPON INTERRUPT IF DATA INTERRUPT OCCURRED. 

ERRA NUM 

LDA- DATAIF CHECK DATA INTERRUPT FLAG. 

SAN 1 

JMP* (ERRA) EXIT IF NOT SET. 

LDA DATAIS STATUS UPON DATA INTERRUPT. 



CLEAR DATA INTERRUPT FLAG. 
RETURN ADDRESS. 
ERROR A, UNEXPECTED DATA INT. 
3 STOPS. 



STA- 


ACT 


CLR 





STQ- 


EXP 


STQ- 


DATAIF 


LOA» 


ERRA 


ENO. 


SA 


JMP* 


STOPS 



03094 
03095 
03096 
03097 
03098 
03099 
03100 

03101 
03102 
03103 
03104 
03105 
03106 
03107 
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DATE* 01/04/75 



3109 

3110 P0A81 689E 

3111 P0AB2 0844 

3112 P0AB3 1890 



♦TWO STOPS FOR AN ERROR. 

ST0P2 STA* ERROR 
CLR A 
JMP» ERROR*! 



STORE RETURN ADORESS. 
2 STOPS. 



03109 
03110 
03111 
03112 



3114 

3115 P0AB4 689B 

3116 POAB? 0A10 

3117 P0AB6 189A 



♦THREE STOPS FOR AN ERROR 

STOP - * STA* ERROR 

ENA *10 

JMP» ERROR* 1 



RETURN ADDRESS 
3 STOPS. 



03114 
03115- 

03116 
03117 



3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 



P0AB7 
P0A88 
P0AB9 
POABA 
POABB 
POABC 
POABO 
POABE 
POABF 
POACO 
P0AC1 



0000 
COOB 
0101 
1CFC 
EOOO 
54E6 
0842 
40 EO 
C8F7 
OCQB 
18F2 



♦ERROR 8, NO ENO-OF OPERATION INTERRUPT WHEN EXPECTED. 

♦ DISPLAY CURRENT STATUS IF NO EOP INTERRUPT OCCURRED. 

C RRB 

CHECK EOP INTERRUPT FLAG. 

EXIT IF SET. 

GET STATUS OF CURRENT STATION. 



NUM 





LOA- 


EOPIF 


SAZ 


. i 


JMP* 


CERRB) 


LDQ- 


STATION 


RTJ- 


(STATUS) 


CLR 


Q 


STQ- 


EXP 


LDA* 


ERRB 


ENQ 


$8 


JMP* 


ST0P3 



RETURN ADORESS. 

ERROR B, NO EOP INTERRUPT. 

3 STOPS. 



03119 
43124 
03121 
03122 
03123 
03124 
03125 
03126 
03127 
03128 
43129 
03130 
03131 



3133 
3134 
3135 
3136 
3137 
3138 
3139 

3140 
3141 
3142 
3143 
3144 
3145 
3146 



P0AC2 
P0AC3 
P0AC4 
P0AC5 
P0AC6 
P0AC7 
P0AC8 
P0AC9 
POACA 
POACB 
POACC 
POACD 
PUACE 



0000 
COOB 
0111 
1CFC 
C800 
FDD1 
600F 
0842 
40E0 
40DB 
C8F5 
OCOC 
10E5 



♦FFROR C, UNEXPECTED END-OF OPERATION INTERRUPT 

» DISPLAY STATUS UPON INTERRUPT IF EOP INTERRUPT OCCURRED. 

ERRC NUM 

LOA- EOPIF CHECK EOP INTERRUPT FLAG. 

SAN 1 

JMP* (ERRC) EXIT IF NOT SET. 

LOA EOPIS STATUS UPON EOP INTERRUPT. 



CLEAR EOP INTERRUPT FLAG. 
RETURN AODRESS. 
ERROR C, UNEXPECTED EOP INT. 
3 STOPS. 



STA- 


ACT 


CLR 


Q 


STQ- 


EXP 


STQ- 


EOPIF 


LOA^ 


ERRC 


ENR 


$C 


JMP* 


STOPS 



03133 
03134 
03135 
03136 
03137 
03138 
03139 

03140 
03141 
03142 
03143 
03144 
03145 
03146 
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3148 






♦ERROR 


0, NO ALARM INTERRUP 


3149 






* 


DISPLAY CURRENT ST 


3150 


POACF 


0000 


ERRU 


NUM 


3151 


POAOO 


cone 




LDA- ALAIF 


3152 


P0AD1 


0101 




SA7. 1 


3153 


P0AO2 


1CFC 




JMP* (ERRD) 


3154 


P0AD3 


EODD 




LOQ- STATION 


3155 


P0AD4 


54E6 




RTJ- (STATUS) 


3156 


F0AD5 


EOFA 




LDQ- EQUIP 


3157 


P0AD6 


0O02 




INQ 2 


3158 


P0AD7 


02FE 




INP -1 


3159 


P0AO8 


60E0 




STA- EXP 


3160 


PQA09 


C8F5 




LOA» ERRD 


3161 


PUAOA 


OCOO 




ENQ $D 


3162 


POAOB 


18DA 




JMP* ST0P3 



DATE* Gl/04/75 



NO ALARM INTERRUPT OCCURRED. 

CHECK ALARM INTERRUPT FLAG. 

EXIT IF SET. 

GET STATUS OF CURRENT STATION. 

EQ. NO., QOO SET. 

SET Q01 (LEVEL 2). 

GET LEVEL 2 STATUS. 

SAVE FOR ERROR MESSAGE. 

RETURN ADDRESS. 

ERROR D, NO ALARM INTERRUPT. 

3 STOPS. 



03148 
03149 
03150 
03151 
03152 
03153 
03154 
03155 
03156 
03157 
03158 
03159 
03160 
03161 
03162 



3164 
3165 
3166 
3167 
3168 
3169 
3170 

3171 
3172 

3173 
3174 
3175 
3176 
3177 
3178 



POAOC 
POADO 
POAOE 
POADF 
POAEO 
P0AE1 
P0AE2 
P0AE3 
POAE<* 
P0AE5 
P0AE6 
P0AE7 
P0AE8 
P0AE9 
POAEA 



0000 
COOC 
0111 
1CFC 
C800 
F0B8 
60DF 
E800 
F0B6 
«*0E0 
Ott*»2 
40 DC 
C8F3 
OCOE 
18C9 



♦ERROR E, UNEXPECTED ALARM INTERRUPT. 

* DISPLAY STATUS UPON INTERRUPT IF ALARM INTERRUPT OCCURRED. 

ERRE 

CHECK ALARM INTERRUPT FLAG. 

EXIT IF NOT SET. 

STATUS UPON ALARM INTERRUPT-. 



LEVEL 2 STATUS UPON INTERRUPT. 

SAVE FOR ERROR MESSAGE. 

CLEAR ALARM INTERRUPT FLAG. 
RETURN AODRESS. 

ERROR E. UNEXPECTED ALARM INT. 
3 STOPS. 



NUM 





LDA- 


ALAIF 


SAN 


1 


JMP» 


(ERRE) 


LOA 


ALA IS 


STA- 


ACT 


LDQ 


ALAIS2 


STQ- 


EXP 


CLtt 





STQ- 


ALAIF 


LOA* 


ERRE 


ENQ 


$E 


JMP» 


ST0P3 



03164 
03165 
03166 
03167 
03168 
03169 
03170 

03171 
03172 

03173 
03174 
03175 
03176 
03177 
03178 



3180 
3181 
3182 

3183 POAEB 0000 

3184 POAEC 0111 

3185 POAEO 1CFD 

3186 POAEE BODF 

3187 POAEF 60E0 

3188 POAFO C8FA 

3189 P0AF1 OCOF 

3190 P0AF2 18C1 



♦ERROR F, UNEXPECTED 1706 STATUS 



:rrf 



ENTER WITH FAILING BITS (IF ANY) IN A-REGISTER. IF FAILURE* 
DISPLAY ACTUAL STATUS IN A, EXPECTED STATUS IN Q. 



EXIT IF NO STATUS BITS FAILED, 

FORM EXPECTED STATUS. 

SAVE FOR ERROR MESSAGE. 

RETURN ADDRESS. 

ERROR F, UNEXP. 1706 STATUS. 

3 STOPS. 



NUM 





SAN 


1 


JMP* 


(ERRF) 


EOR- 


ACT 


STA- 


EXP 


LOA» 


ERRF 


ENQ 


$F 


JMP» 


STQP3 



03180 
03181 
03182 
03183 
03164 
03185 
03186 
03187 
03186 
03189 
03190 
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3192 
3193 
319* 
3195 
3196 
3197 
3198 

3199 
3230 
3201 
3202 
3203 
320* 
3205 
3206 

3207 
3208 
3209 
3210 
3211 
3212 
3213 
321* 
3215 
3216 
3217 
3218 
3219 
3220 



P0AF3 
POAF* 
P0AF5 
P0AF6 
P0AF7 
P0AF8 
P0AF9 
POAFA 
POAFB 
POAFC 
PflAFQ 
POAFE 
POAFF 
P8B88 
P0QQ1 
P0B02 
P8B83 
POBO* 
P0805 
PQBOfr 
P0B07 
P0B08 
P0BQ9 
POBOA 
P0B03 
P8B8C 
POBOQ 
POBOE 
POBflF 



OSOO 
BODE 
EOFA 
0D20 
GOOO 

ooai 

0302 
180* 
5*EC 
5*ED 
18F7- 
0C20 
5*E6 
B888 
0003 
5*EF 
OG20 
5*E6 
A06C 
8181 
18FB 
EOFA 
0020 
0A01 
0302 
1CE6 
5*EC 
5*E0 
18 F8 



MOTOR 



FEEO A CARO ON READER TO START MOTOR. GET STATUS* EXPECT 
BUSY ANO REAOY. WAIT NOT BUSY. CLEAR CONTROLLER. 
NUM 

--■■ • RAO- COUNTER - 

MOTORfl LDQ- EQUIP 

INQ $20 

LOA sNS0081 



MOTORS 



OUT 
JMP* 
'RTJ- 
RTJ- 
JNP» 
ENQ 
RTJ- 
EOR- 



RTJ- 
MOTORG ENQ 
RTJ- 
AND- 
SAZ 
JMP* 
LOQ- 
INQ 
ENA 
OUT 
JMP* 
RTJ- 
RTJ- 
JMP* 



MOTORD 



2 

MOTORS 

(ERROR*) 

(ERRORS) 

MOTORA 

$20 

(STATUS) 

■NS6883 

(ERROR7) 
$20 

(STATUS) 
CONST+1 

1 

MOTOR.C 

EQUIP 

$20 

1 

2 

(MOTOR) 

(ERROR*) 

(ERR0R5) 

MOTORD 



INCREMENT CARD COUNTER* 
EQ. NO., Q00 SET. 
SET Q05 (STATION 1). 
SET A07 AND A00. 



SELECT FEEO AND CLEAR. 

EXPECT REPLY. - •■ 

ERROR *, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 
SET Q05 (STATION 11. 
GET STATION 1 STATUS. 
EXPECT BUSY ANO READY. 

ERROR 7, UNEXPECTED STATUS. 
SET Q05 (STATION 1). 
GET STATION 1 STATUS. 
CHECK A01 (BUSY STATUS). 

WAIT NOT BUSY. 
EQ. NO., QOO SET. 
SET (105 (STATION 1). 
SET AOO. 

CLEAR CONTROLLER. 
EXPECT REPLY. EXIT. 
ERROR *, INTERNAL REJECT. 
ERROR 5, EXTERNAL REJECT. 
HANG ON REJECT. 



03192 
03193 
0319* 
83195 
03196 
03197 
83198 

03199 
83206- 
03201 
03202 
83283 
0320* 
03205 
83286 

03207 
83288 
03209 
03210 
03211 
03212 
03213 
0321* 
03215 
03216 
83217 
03218 
03219 
03228 



3222 P0B10 0051 

3223 P0B61 0051 



3UFFTN BSS 
BUFFOUT BSS 



BUFFIN(81) READ BUFFER AREA 
BUFF0UT(81) WRITE BUFFER AREA 



03222 
03223 
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DATE* 01/04/?5 



3225 



♦INITIALIZATION OF TEST 



3226 P0BB2 0000 INITIAL NUM 



3227 P08B3 C000 


LOA 


=XCRPA0O 


PQBB4 0000 P 






3228 P0BB5 6008 


STA- 


BIAS 


3229 P0BB6 0844 


CLR 


A 


3230 P08B7 60F9 


STA- 


SEC 


3231 P0BB8 600E 


STA- 


COUNTER 


3232 P0BB9 60OD 


STA- 


STATION 



SAVE. 

INITIALIZE SECTION NUMBER. 
INITIALIZE LOOP COUNTER. 
INITIALIZE STATION NUMBER* 



03225 
03226 
03227 

03228 
03229 
03230 
03231 
03232 



3234^ 'STORE 


INITIAL 


ADDRESSES OF - SUBROUTI) 


4ES TO ENABLE 


■ ONE-WORO Rl 


3235 P03BA C000 


LDA 


=XSTAT 






POBBB 07CQ P 










3236 POBBC 60E6 


STA- 


STATUS 


( STATUS) 


a. STAT 


3237 POBBD 0922 


INA 


INC100-STAT 






3238 POBBE 60E8 


STA- 


IC100 


(ICIOO) = INC100 


..■— 3239 POBBF 0904 


• INA 


INC10-INC100 






3240 POBCO 60E7 


STA- 


IC10 


CIC10) = 


INC10 


3241 P0BC1 0907 


INA 


MONITOR-INC10 






3242 P0aC2 60 E5 


STA- 


SMM 


(SMM) =. MONITOR 


3243 P0BC3 091E 


INA 


INITDI-MONITOR 






3244 P0BC4 60 E9 


STA- 


INITOATA 


(INITOATA) = INITOI 


3245 P0BC5 090A 


INA 


INITEI-INITOI 






3246 P0BC6 60EA 


STA- 


INITEOP 


(INITEOP! 


i = INITEI 


3247 P0BC7 090A 


INA 


INITAI-INITEI 






3248 P0BC8 60EB 


STA- 


INITALARM 


(INITALARH) = INITAI 


3249 P0BC9 8000 


ADO 


=XGEN-INITAI 






POBCA 00A6 










3250 P0BC8 60F8 


STA- 


6ENERATE 


- (GENERATE) = GEN ■ 


3251 POBCC 8000 


AOO 


=XERR4-GEN 






POBCO 019E 










3252 POBCE 60EC 


STA- 


ERRORS 


(ERR0R4) 


s ERR4 


3253 POBCF 0905 


INA 


ERR5-ERR4 






3254 POBDO 60ED 


STA- 


ERRORS 


(ERR0R5) 


- ERR5 


3255 P0BO1 0904 


INA 


ERR6-ERR5 






3256 P0BO2 60EE 


STA- 


ERR0R6 


(ERR0R6) 


= ERR6 


3257 POB03 0905 


INA 


ERR7-ERR6 






3258 P08D4 60EF 


STA- 


ERR0R7 


(ERR0R7) 


- ERR7 


3259 P0BD5 0908 


INA 


ERR8-ERR7 






3260 P0BO6 60F0 


STA- 


ERR0R8 


(ERRORS) 


= ERRS 


3261 P0SO7 0913 


INA 


ERR9-ERR8 






3262 P0BO8 60F1 


STA- 


ERR0R9 


(ERR0R9) 


= ERR9 


3263 P0BD9 0908 


INA 


ERRA-ERR9 






3264 PflBDA 60 F2 


STA- 


ERRORA 


(ERRORA) 


= ERRA 


3265 POBDB 0913 


INA 


ERRB-ERRA 






3266 POBDC 6BF3 


STA- 


ERRORS 


(ERRORS) 


= ERRB 


3267 POBDO 090B 


INA 


ERRC-ERRB 






3268 POBDE 60F4 


STA- 


ERRORC 


(ERRORC) 


= ERRC 


3269 POBDF 0900 


INA 


ERRD-ERRC 







03234 
03235 

03236 
03237 
03238 
03239 
03240 
03 241 
03242 
03243 
03244 
03245 
03246 
03247 
03248 
03249 

03250 
03251 

03252 
03253 
03254 
03255 
03256 
03257 
03258 
03259 
03260 
03261 
03262 
03263 
03264 
03265 
03266 
03267 
03268 
03269 
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3270 P08E0 60F5 

3271 POBEi 090D 

3272 P0BE2 60F6 

3273 P0BE3 090F 

3274 POSE* 60F7 



PAGE 


92 




STA- 




ERRORO 


INA 




ERRE-ERRO 


STA- 




ERRORE ■■- 


INA 




ERRF-ERRE 


STA- 




ERRORF 



DATEI 01/0*»/75 



(ERRORO) * ERRD 
CERRORE) '■-» ERRE 
(ERRORF) = ERRF 



0327S 
03271 
63272 
03273 
Q3274i 



3276 P0BE5 C0D8 


LDA- 


BIAS 


3277 POBEfr 5*0 A 


RT> 


4C0NV) - - ... 


3278 P0BE7 4856 


STQ» 


Bi 


3279 P0BE8 6856 


STA» 


B2 


- - 3260 POBE9 E091- -- - 


LDQ- 


•-. TSACTV .*—-'■ - 


3281 POBEA C291 


LDA- 


TSFREQ-ltQ 


3282 POBEB 540A 


RTJ- 


(HEXASC) 


- 328* POflEG 6657- — 


■- STA» 


ETITLE-1 


3264 POBED COQO 


LDA 


*XTITLE 


PQBEE 0C1O P 






■■■-' 3285 P0BEF-0C28- 


ENQ 


ETITt€-TITi£-H 


3286 POBFO 5408 


RTJ- 


(MESSAGE) 


3287 P0BF1 C600 


LOA 


EQ 


--•■■-.. P08F2 F413 




— 


3288 POBF3 60FA 


STA- 


EQUIP 


3289 P0BF4 AO00 


AND . 


*NS7F 


'-■-■ — P0BF5 D07F 


- - : 


• ••- '■■- ••• - --■- — - 


3290 P0BF6 B06B 


EOR- 


CONST 


3291 P0BF7 0101 


SAZ 


1 


3292 P0BF8 18 IB 


JHP» 


ERRORl 


3293 POBFO CDFA INITO 


LDA- 


EQUIP 


3294 POBFA AOOO 


AND 


,,. sN$F800 


~PQBF8 F800 - 




" : -"•-.•-•■--.'•«■■■'■ -' 


3295 POBFC 60FB 


STA- 


CHAN 


3296 POBFD 0108 


SAZ 


INITA-*-l 


3297 POBFE QFC5 


ALS 


5 


3298 POBFF 09FO 


INA 


-2 


3299 POCOO 01Q5 


SAZ 


INITA-»-i 


3300 P0C01 09FA 


INA 


-5- ■- 


3301 P0C02 0103 


SAZ 


INITA-»-l 


3302 P0C03 09FA 


INA 


-5 


3303 POC04 0101 


SAZ 


INITA-*-l 


330V P0C05 180E 


JHP* 


ERRORl 


3306 P0C06 COOO INITfl 


LDA 


=XBUFFOUT+80 


P0C07 0B31 P 






3307 P0C08 6830 


STA» 


LAST 


3308 P0C09 0862 


TCA 


Q 


3309 POCOA C049 


LDA- 


INFORM 


3310 POCOB A080 


ANO- 


HFQOO 


3311 POCOC 8077 


ADO- 


CONST+12 


3312 POCOO 0834 


AAO 


A 



CONVERT INITIAL ADDRESS TO- ^SMI- 
SET UP INITIAL ADDRESS MESSAGE* 



NUMBER OF WORDS IN TITLE. 

TYPE OUT TITLE. 

EQUIPMENT AOORESS FOR STATUS 

SAVE IN LOW CORE. 
CHECK BITS 6 THRU 0. 

EXPECT BIT ONLY. 

SKIP IF OKAY. 

ERROR t EQUIPMENT AOORESS WRONG. 

CHECK BITS 15 THRU 11. 

NON-ZERO IF ON 1706 OR 1716. 
SKIP IF W = 00. 



SKIP IF W = 02. 
SKIP IF W = 07. 



ERROR IF H NOT' 0, 02*07, OR OC 



SAVE COMPLEMENT IN 0. 



FORM COMPUTER MEMORY SIZE. 
COMPARE WITH LAST AODR. OF TEST 



03276 
4)337? 
03278 
03279 
-03268 
03281 
03282 
09263 
03284 

032*5 

03286 
03267 

03288 
03289 

03 290 
03291 
-03292 
03293 
0329* 

03295 
03296 
0329? 
03298 
03299 
03300 
03301 
03302 
03303 
03304 



03306 

03307 
03308 
03309 
03310 
03311 
03312 
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DATEI Qi/0*/75 



3313 POCOE 0139 
331* POCOF 5800 

P0C10 FB77 
3315 P0C11 1800 

P0C12 F3FE 



INITZ 



SAM 
RTJ 

JHP 



ERR0f?2-»-l 
PARAM 

SECO 



SKIP IF INSUFFICIENT MEMOR*. 
ENTER PARAMETERS 



DONT GIVE UP CONTROL 



03313 
0331% 

03315 



3317 

3318 P0C13 0CO1 

3319 P0C1* 08** 

3320 P0C15 5800 
- P0C16 FE39 

3321 P0C17 18FB 



♦EQUIPMENT ADDRESS WRONG, ERROR CODE 1 



ERROR 1 



ENq - 

CLR 

RTJ 

JMP» 



1 

A 
ERROR 

ERR0R1 



ERROR CODE 
2 STOPS, 



03317 

-03348. 

03319 

03320 



HANG. TEST MUST BE CALLEO AGAIN. 03321 



3323 






332* 


P0C18 


0C02 


3325 


P0C19 


08** 


3326 


P0C1A 


5800 




pocie 


FE3* 


- 3327 


P0C1C 


18F8 



•INSUFFICIENT MEMORY FOR TEST, ERROR CODE 2 

ERR0R2 ENQ 2 ERROR CODE 2. 

.CLR A. ._ - -2 STOPS. . 

RTJ ERROR 



JMP» 



ERR0R2 



HANG. 



03323 
0332* 
03325 
03326 

03327 



3329 P0C1O 


8O0A 


3330 POCIE 


20*3 


P0C1F 


5250 


P0C20- 


*130 


P0C21 


**2C 


P0C22 


2031 


P0C23 


3732 


P0C2* 


3820 


P0C25 


*3*1 


P0C26 


52** 


P0C27 


20 52 


• P0C28 


*5*1 


P0C29 


***5 


P0C2A 


522F 


P0C28 


5055 


P0C2C 


*E*3 


P0C2D 


*820 


P0C2E 


5**5 


P0C2F 


535* 


P0C30 


2E20 


3331 P0C31 


8D0A 



TITLE 



NUM 
ALF 



S8O0A 

X, CRPAOD, 



CARRIAGE RETURN, LINE FEEO. 
1728 CARD READER/PUNCH TEST.X 



03329 
03330 



NUM 



SflOOA 



CARRIAGE RETURN 



03331 
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3332 
3333 



3334 
3335 



3336 
3337 
3338 
3339 



33 40 
3341 
-3342 
3343 
3344 



P0C32 
P0C33 
PQC34 
P0C35 
P0C36 
P0G37 
P0C38 
P0C39 
P0C3* 
P0C3B 
P0C3C 
P0C3O 
P0C3E 
P0C3F 
P0C40 
P0C41 
P0C42 
PQC43 
PQC44 
P0C45 



4350 

3046 

28 56 

4552 

2E20 

332€ 

3120 

OOOA 

2049 

4120 

3020 

0000 

0000 

2C20 

2046 

k32G 

3O20 

2020- 

8D0A ETITLE 

0000 LAST 

0000 D 

0003 



at 

B2 



ALF 
ALF 



NUM 
ALF 



MUM 
NUM 
NUM 
ALF 



NUM 
NUM 
DAT 
DAT 
END 



X,CPOFX 

X» VER. 3*1X 



SODOA 
3, IA 



MAINFRAME TYPE 



LF CR 



- 


$2C20 
4# FC- 



J8D0A 



AIDDPLORtSf AT-GUNT) 

AIDDPi I INITIAL-BUFFI N) 



03332 
03333 



03334 
03334 



03336 

03337 
03338 
83339 



03340 
03341 
83342 
03343 
03344 



PGM- 0C46 C 3142) COM = 0000 ( 



0) DAT * 00A5 I 



165) 
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DATE! 01/04/75 



£ Q U I V ALE N C E S 



OEF.LINE NAME VALU1 
0000 I OOFF 



0159 
0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 

017V 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 



CONTRO 

STOPX 

EXIT 

REQINT 

FCLRIN 

JUHP 



GENRAN 
TYPEOU 

ttybzy 

HEXASC 

OVRLAY 

RELPOS 

MAINL 

SETHAS 

STJP 

LASTVA 

LASTAD 

LDLCOR 

LDL1CO 

INFORM 

SNMCNT 

BITOO 

BITO 

BIT1 

BIT2 

8IT3 

BIT4 

BIT5 

BIT6 



0001 
0002 
0003 
0004 
0005 
0006 



0007 
0008 
0009 
000A 
OOOO 
000C 
O00D 
0042 
0043 

0044 
0045 
0047 
0048 
0049 
0056 
0O6B 
006B 
006C 
0060 
006E 
006F 
0070 
0071 



(000255) 



(000001) 
(000002) 
(000003) 
(000004) 
(000005) 
(000006) 



(000007) 
(000008) 
(000009) 
(000010) 
(000011) 
(000012) 
(000013) 
(000066) 
(000067) 

(000068) 
(000069) 
(000071) 
(000072) 
(000073) 
(000086) 
(000107) 
(000107) 
(000108) 
(000109) 
(000110) 
(000111) 
(000112) 
(000113) 



REFERENCED AT LINE NUMBER 

2401, 2548. 2583, 2738, 2744, 2745 
2775, 2782, 2783, 2824, 2834, 2835 



0160 

0161, 

0162, 

0163, 

0223 

0165, 

1399*. 

1731, 

2023, 

2340, 

2965 

0166, 

0167* 

0225 

0169, 

0170 

0171 

0172 

0173, 

0174, 

2286, 



2300, 

2308 

0164,' 

0797, 
1423, 
1737, 
2029, 
2446, 

0219, 
0168, 



2335, 2357, 2997 

0222- .- • 

1168, 1192, 1287, 1311 

1544, 1558, 1622, 1636 

1837, 1843, 1931, 1937 

2087, 2093, 2305, 2318 

2460, 2646, 2762, 2943 

2766 
0221 .... 



0220, 0224, 3282 



0959 

0175, 

2290, 



0218, 2196, 2200, 2201 
2291 



0176 
0177 
0178 - 

0179, 3309 

0180, 0217, 2680 

0181, 0216 
0182 

0183 

0184 

0185 

0186 

0187, 2315, 3064 

0188 
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0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
020<f 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 



BI1Y 

8IT8 

BIT9 

BIT10 

BIT11 

8IT12 

BIT13 

BIT14 

BIT15 

HOOOO 

HFFFF 

HOOOF 

HOOFO 

HOFOO 

HFOOO 

HOOFF 

HFFOO 

WFFFO 

HOFFF 

HFFOF 

HFOFF 

H7FFF 

H7F00 

H0780 

H007F 

H2020 

TSACTV 

TSFREQ 

CONST 



0072 
0073 
0074 
0075 
0076 
0077 
0078 
0C79 
007A 
007B 
007C 
0070 
007E 
007F 
0080 
0081 
008? 
0083 
0084 
008 r > 
0086 
0087 
0088 
0089 
008A 
008B 
0091 
0092 
0069 



(000114) 
(000115) 
(000116) 
(000117) 
(000118) 
(000119) 
(000120) 
(000121) 
(000122) 
(000123) 
(000124) 
(000125) 
(000126) 
(000127) 
(000128) 
(000129) 
(000130) 
(000131) 
(000132) 
(000133) 
(000134} 
(000135) 
(000136) 
(000137) 
(000138) 
(000139) 
(000145) 
(000146) 
(003107) 



0189 

0190 

0191* 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200, 

0201* 

0202, 

0203, 

020*» 

0205 

0206 

0207 

0208 

0209 

0210, 

0211 

0212 

0213 

0214 

0215, 

3281 

0287 

0349 

0402 

0489 

0588 

0673 

1104 

1466 

1730 

2022 

2317 

2538 

2586 



2984, 3069, 3072 



0941 
2381 
2376 
3310 



2653, 2667 



3280 



, 0303, 


0320, 


, 0338, 


, 0342, 


, 0367, 


0371, 


, 0374, 


r 0378, 


, 0436, 


0439, 


, 0U57 


, 0460, 


, 0524, 


0527, 


0559 


, 0562, 


, 0591, 


0609 


, 0612 


, 0641, 


, 0694, 


0708, 


, 0783 


r 0796, 


, 1167, 


1213 


, 1259 


, 1296, 


, 1504, 


1543, 


, 158 5, 


, 1621, 


• 1758, 


1836 


► 1864 


, 1930, 


, 2086, 


2120 


, 2197 


, 2214, 


, 2445, 


2484, 


» 2491 


t 2512, 


, 2552, 


2556 


i 2559 


, 2568, 


, 2593, 


2761, 


, 3210 


, 3290, 



0345 
0399 
0480- 
058Q 
0658 
862 
1332 
1659 
1961 
228 7 
2525 
2579 
3311 



0217 
02lfl 
0219 
0220 
0221 
022? 
0223 
022*1 
0225 
0226 
0233 



SMMPAR 

SJPAR 

RANDON 

CONVE'? 

NESSAG 

REQNO 

CLRND 

CONV 

SHMTYP 

REG 

SMM 



0056 
0043 
0007 
0000 
OOOfl 
0004 
0005 
OOPA 
0009 
014P 
00F.5 



(000086) 
(000067) 
(000007) 
(0003101 
(000008) 
(000004) 
(000005) 
(000010) 
(000009) 
(000 320) 
(000229) 



, 0786, 1006 



2134, 219?, 2231, 3286 



3277 



2582, 2631 

0234, 0757, 0927, 0938, 1028, 1138 
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DATE! 01/04/75 



023** STATUS 0OE6 



(000230) 



0235 IC10 00E7 

0236 IC100 O0E8 



0237 INITOA 00E9 

0238 INITEO OOEA 

0239 INITAL OOEB 

0240 ERRORS OOEC 



(000231) 
(000232) 



(000233) 
(000234) 

(000235) 

(000236) 



0241 ERR0R5 OOED 



(00U237) 



0242 ERR0R6 OOEE 

0243 ERR0R7 OOEF 



(000238) 
(000239) 



» 1245, 


, 1368, 


, 1506 


, 1511, 


1587, 


, 1723 


, 1788, 


, 1829 


, 1897, 


1997, 


, 2059i 


» 2458, 


, 2965, 


r 3242 




, 0235 


► 0348, 


, 0377, 


, 0435, 


0456, 


* 0523 


, 0558, 


> 0587, 


, 0608, 


0640, 


. 0749, 


, 0761, 


0819, 


, 0831, 


0912, 


, 0975i 


, 0987 


» 1025, 


, 1061, 


1073, 


, 1177, 


> 1250, 


1272, 


t 1296, 


1384, 


* 1607, 


► 1710, 


> 1796, 


r 1816, 


2143, 


, 2181, 


, 2240 


, 2260, 


> 2278, 


3087, 


, 3155, 


, 3205, 


i 3209, 


, 3236 




♦ 0236, 


► 1628 


► 3240 






, 0237 


, 0305, 


, 0322 


, 0351, 


0380* 


t 0420, 


, 0441, 


, 0462, 


, 0502, 


537, 


• 0593 


» 0614, 


, 0654, 


> 0675, 


834, 


, 1076, 


> 1184, 


, 1303, 


, 1405, 


1550, 


. 2167 


,2186, 


> 2246 


r 2264, 


2282, 


, 0238 


» 0468, 


, 0509 


, 0544, 


0621, 


, 0909 


, 1365, 


1894, 


» 3244 




, 0239 


► 0469, 


► 0508, 


r 0545, 


0622, 


• 0908, 


, 1022, 


, 1136, 


> 1243, 


1366, 


, 1580 


, 1690, 


> 1786 


, 1895, 


1990, 


, 3246 










, 240 


, 0470, 


> 0510 


, 0543, 


0623, 


, 0910 


, 1023 


► 1137, 


> 1244, 


1367, 


, 1581, 


► 1691, 


> 1787, 


t 1896, 


1991, 


f 2244, 


> 3248 








, 0241, 


i 0298, 


, 0315, 


, 0394, 


0415, 


t 0452, 


, 0476 


, 0499, 


, 0516, 


0534* 


, 0569, 


, 0583, 


> 0604, 


, 0629, 


0651, 


. 0742, 


, 0885, 


> 0815, 


, 0827, 


848, 


, 0903 


► 0963, 


, 0971 


, 0983, 


1019, 


, 1069 


, 1085, 


, 1133, 


, 1148, 


1201, 


t 1267 


i 1320, 


, 1362 


• 1443, 


ld96, 


, 1645 


, 1687, 


>■ 1703 


> 1746, 


1783, 


, 1852 


t 1891, 


1908, 


» 1946, 


1987, 


t 2102, 


» 2159, 


, 2178 


> 2226, 


2257, 


, 2432, 


, 2580, 


» 3201, 


» 3218, 


3252 


» 0242, 


r 0299 


, 0316, 


, 0334, 


363, 


, 0416 


i 0432 


, 0453 


, 0477, 


0500, 


, 0535, 


, 0552, 


, 0570 


, 0584, 


0605, 


• 0652 


i 0743 


, 0806 


, 0816, 


828, 


, 0874, 


( 0904 


, 0964, 


, 0972, 


0934, 


, 1058 


, 1070, 


, 1086- 


, 1134, 


1202, 


, 1268 


, 1321, 


, 1363 


, 1444, 


1497, 


, 1646 


i 1688 


, 1747 


, 1784, 


1810, 


• 1892 


, 1909 


, 1947 


• 1988, 


2050, 


, 2227 


, 2433 


, 2501 


i 3202, 


3219, 


, 243 


, 0332 


, 0361, 


, 0668, 


2158, 


• 2256 


. 2274 


, 3256 






, 244 


i 0304 


» 0321, 


, 0350, 


379, 



1692 
2000 

0488 
0672 
0919 
1153 
1530 
2162 
3126 



0404 
0572 
0990 
2148 
3238 

0755 

0747 
1499 
2052 

0756 
1500 

2053 

0431 
0551 
0669 
0873 
1057 
1240 
1577 
1809 
2049 
2275 

0395 
0517 
0630 
0849 
1020 
1241 
1578 
185 3 
2103 
3254 

2177 

0403 
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DATE* 01/04/75 



0244 
0245 


ERR0R8 
ERR0R9 


00F0 
00F1 


(000240) 
(000241) 


0246 


ERRORA 


00F2 


(000242) 


0247 


ERRORS 


0OF3 


(000243) 


0248 


ERRORC 


OOF'* 


(000244) 


0249 

0250 


ERRORO 
ERRORE 


00F5 
00F6 


(0082*51 
(000246) 


0251 


ERRORF 


00F7 


(000247) 


0252 


GEHERA 


00F8 


(000248) 


0253 


SEC 


00F9 


(000249) 


0254 


EQUIP 


OOFA 


(000250) 



0255 

0256 
0257 



CHAN 



OCFfJ 



8DCSTA 00D4 
BOCCHA 0005 



(G00251) 

(000212) 
(000213) 



, 0440 


, 0461* 


0493, 


, 0613 


, 0645, 


0674, 


* 0821 


r 0833* 


0915, 


t 0989 


, 1027, 


1042, 


, 1162 


r 1179, 


1260, 


, 1539 


, 1617, 


1713, 


* 1835 


, 1929, 


2021, 


, 2185, 


, 2243, 


2263, 


, 3258 






t 0245 


, 0419, 


3260 


, 0246, 


, 0482, 


0634, 


» 0247, 


, 0484, 


0520, 


* 0248- 


, 8806, 


0965, 


, 2063 


, 3266 




, 02*9, 


, 0485, 


0519, 


• 1283, 


r 1697, 


1793, 


t 0250, 


, 1045, 


2245, 


, 0251 


i 0486, 


0521, 


, 0809, 


> 0932* 


0951, 


* 1294, 


» 1373, 


1540, 


, 1900 


i 2001, 


2060, 


, 0252 


,0343, 


0372, 


t 0253, 


, 1114, 


1188, 


t 1408, 


, 1419, 


1432, 


, 1632, 


> 2896, 


2911, 


, 0254, 


r 0285, 


0681, 


♦ 0866, 


, 1108, 


1217, 


, 1448, 


> 1453, 


1470* 


t 1965, 


, 2124, 


2218, 


, 2600, 


2978, 


3230 


« 0255 


, 0294, 


0311, 


, 0410, 


, 0426, 


0447, 


, 0529, 


0546, 


0564, 


» 0646, 


, 0664, 


0737, 


, 0843, 


, 0869, 


0898, 


t 1014, 


, 1052, 


1064, 


t 1196, 


, 1233, 


1263, 


f 1489 


, 1502, 


1570, 


t 1699 


, 1741, 


1776, 


* 1903, 


. 1941, 


1980, 


, 2097, 


, 2154, 


2173, 


, 2314, 


, 2320, 


2426, 


, 2617, 


2959, 


3156, 


♦ 3293 






, 0335 


, 0344, 


0364, 


♦ 2549, 


2602, 


3295 


, 0257, 


1592, 


2065, 


, 258 


, 1520, 


1597, 



0528, 


563, 


0592 


0754, 


771, 


0784 


0931, 


0943, 


0977 


1051, 


1063, 


1075 


1281, 


1298, 


1393 


1729, 


1803, 


1819 


2085, 


2147, 


2166 


2281, 


2498, 


3207 



0792, 0947, 3262 
0555, 0636, 3264 
1036, 1518, 2004 



0556, 


0637, 


1164 


3268 






3270 






8554, 


0638, 


0795 


1163, 


1175, 


1262 


1618, 


1696, 


1792 


3272 






1596, 


2869, 


3274 


1222, 


1307, 


1338 


1472, 


1554, 


1565 


2927, 


3250 




0684, 


699, 


0712 


1336, 


1412, 


1425 


1663, 


1762, 


1868 


2332, 


2455, 


2597 


0329, 


0357, 


0390 


0471, 


0494, 


0511 


0578, 


0599, 


0624 


0800, 


0810, 


0822 


0956, 


0966, 


0978 


1080, 


1126, 


1144 


1315, 


1355, 


1438 


1583, 


1640, 


168 


1805, 


1847, 


1884 


1993, 


2042, 


2055 


2221, 


2252, 


2270 


2480, 


2563, 


2606 


3196, 


3213, 


3288 


0373, 


1473, 


1958 


2555 






2006, 


2070, 


2562 



0258 



TIHE 



00OG 



(000214) , 0259, 0746, 0759, 0766, 0775, 0791 
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DATE! 01/04/75 



0259 COLUMN 0007 



(0002151 



0260 BIAS 00D8 

0261 EOFFLA 0009 



0262 DATAIF OOOA 

0263 EOPIF 0008 

0264 ALA IF 00 DC 

0265 STATIO 0000 



(000216) 
(000217) 



(000218) 
(000219) 

(000220) 

(000221) 



0266 COUNTE OOOE 

0267 ACT OOOF 



(000222) 
(000223) 



0268 EXP 



OOEO 



0269 OFFSTF 00E2 



(0OQ224I 



(000226) 



* 0907, 


, 0920* 


0925, 


0936, 


955, 


• 1032 


, 1033, 


1509, 


1514, 


1515, 


* 2967 


, 2968 








t 0260 


, 0734, 


0750, 


0762, 


0780, 


* 0895, 


0921, 


0953, 


1124, 


1139, 


* 1151, 


» 1231, 


1246, 


1256, 


1261, 


, 1354, 


» 1374, 


1386, 


1678, 


1706, 


» 1715, 


1774, 


1812, 


1814, 


1821, 


* 1914, 


, 2604, 


2609, 


2620, 


2622, 


* 2931, 


, 2946, 


2950, 


2951, 


2994 


* 0261, 


, 2299, 


2307, 


2334, 


2356, 


* 3228, 


► 3276 








, 0262, 


, 1112, 


1165, 


1182, 


1186, 


• 1284, 


, 1301, 


1305, 


1341, 


1397, 


, 1409, 


» 1477,' 


1541, 


1548, 


1552, 


• 1619, 


, 1626, 


1630, 


1667, 


1733, 


, 1839 


► 1873, 


1933, 


1969, 


2025, 


• 2089, 


, 2858, 


2926 






• 0263, 


r 0945, 


2509, 


2613, 


308 3, 


, 3104 










t 1030, 


, 1156, 


1171, 


1275, 


1290, 


, 1512 


> 1533, 


1588, 


1610, 


1693, 


, 1789, 


> 1825, 


1911, 


2002, 


2061, 


, 2590, 


> 3122, 


3136, 


3143 




t 0265, 


, 0793, 


0949, 


1043, 


1155, 


» 1274, 


1291, 


1370, 


1388, 


1534, 


• 1694, 


» 1721, 


1790, 


1827, 


1898, 


* 2535 


» 2577, 


3151, 


3167, 


3175 


, 0266, 


, 0385, 


0391, 


0412, 


0427, 


* 0448, 


0455, 


0472, 


. 0479, 


0487, 


, 0512, 


, 0522, 


0530, 


0547, 


0557, 


, 0579, 


, 0586, 


0600, 


0607, 


0625, 


, 0647, 


► 0657, 


0666, 


0671, 


697, 


, 0868, 


, 1110, 


1224, 


1344, 


1480, 


, 1764 


. 1871, 


1967, 


2220, 


2564, 


• 3086, 


t 3125, 


3154, 


3232 




t 0267, 


> 0276, 


2448, 


2449, 


2454, 


• 3231 










, 0268, 


> 0301, 


0318, 


0340* 


369, 


t 0418, 


, 1039, 


1048, 


1377, 


1521, 


t 1598, 


> 1726, 


1832, 


1917, 


1926, 


, 2018, 


> 2066, 


2071, 


2082, 


2144, 


, 2182, 


, 2435, 


2627, 


2889, 


2934, 


* 3051, 


> 3066, 


3068, 


3074, 


3101, 


t 3171, 


r 3186 








, 0269, 


» 1379, 


1523, 


1600, 


1919, 


t 2073, 


i 2629, 


2891, 


2935, 


2992, 


, 3075, 


, 3089, 


3103, 


3128, 


3142, 


• 3173, 


> 3187 








, 1113 


i 1128, 


1161, 


1181, 


1220, 


* 1280, 


, 1300, 


1342, 


1357, 


1392, 


, 1478, 


, 1491, 


1538, 


1547, 


1563, 


, 1616 


, 1625, 


1668, 


1682, 


1767, 



1011 
2964 

078 5 
1142 
1270 
1708 
1882 
2930 

2968 

1219 
1402 
1562 
1766 

2033 

3097 

1369 
1719 
2522 

1172 
1612 
190 2 

0434 
0495 
0565 
0639 
0714 
1665 
3063 

3195 

0397 
1593 
2007 
2163 
2990 
3140 

2009 
3052 
3159 

1235 
1394 
1572 
1778 



60271300 F 



PAGE 99 



CRPAOO 



PAGE 10 



DATEl 01/0^/75 



, 187<t, 1886, 1970, 1982, 203*», 20*»4 
, 2859, 2887, 2938 



60271300 F 



PAGE 100 



o 



o 



r 



r 



f \ 



CRPAOD 



PAGE 101 



OATEl 01/04/75 



S V M 6 L S 



DEF.LINE 


NAME 


AOORCSS 


0142 


CRPAOO 


0000 


0144 


PARADR 


0004 


0145 


RETURN 


0005 


0151 


EQ 


0006 


0154 


SECTOT 


0007 


0155 


INTLIN 


0008 


0156 


START 


0009 


0271 


BEGIN 


0006 


0275 


RESTAR 


0O0D 


0284 


SECO 


0011 


0294 


LOOP00 


0G18 


0301 


SOOA 


00 IF 


0311 


LOOP01 


0025 


0318 


SQ1A 


002C 


0329 


LOOP02 


0033 


0335 


S02C 


0039 


0336 


S02A 


003C 


0344 


S02A1 


0043 


0347 


S02B 


0046 


0357 


LOOP03 


004C 


0364 


S03C 


0053 


0367 


S03A 


0056 


373 


503A1 


OO'iD 


0376 


S03B 


0060 


0390 


LOOP04 


0068 


0397 


S04A 


006F 


0410 


LOOP05 


0079 


0418 


S05A 


0081 


0426 


LOOP06 


0085 


0434 


S06A 


008D 


0447 


LOOP07 


0096 


0455 


S07A 


009F 


0468 


LOOP08 


0C1A7 


0471 


S08A 


00 AA 


0479 


S08B 


00B2 


0494 


S08C 


00C2 


0502 


S080 


OOCA 


0509 


LOOP09 


OOCC 


0511 


S09A 


O'JCF 



REFERENCED AT tlNE NUMBER 
t 2126, 3227 



0693* 0707* 0861, 1103* 1212 
1465, 1658, 1757, 1863, 1960 
2213, 2373 



, 3315 

, 0300, 0306 



3287 

0286 

1331 

2119 

2375 

0142 

0145 

2324 

0686 

0288 

0297 

0317, 0323 

0314 

0352 

0333 



0337 
0381 
0362 



0366 

0396, 0405, 0700 

393 

0417, 0421 

0414 

0433, 0442 

430 

0454, 0463 

0451 

0503 

0478 

0475 

0501 

0498 

0538 

0518 
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DATE* 01/04/75 


0519 


S093 


00D7 1 


, 0515 




0529 


S09C 


00E1 


, 0536 




0537 


S09B 


00E9 , 


, 0533 




051*3 


LOOPOA 


OOEB , 


,. 0573 




0546 


SOAA 


OOEE , 


, 0553 




0554 


SOAB 


08F6 , 


i 0550 




0564 


SOAC 


0100 , 


, 0571 




057Z 


SOAO 


0108 


, 0568 




0578 


LOOPOB 


010A , 


, 058*, 0594 




0566 


SOBA 


0112 , 


, 0582 




0599 


LOOPOC 


011B , 


, 0606, 0615 




0607 
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OATEI 


01/04/7 


5 


.»•». A L 


P H A 


8 E T I 


C A L 


SORT 


OF 


S Y M B 


L S 


»*♦ 




A BIAS 


2990 


ACT 


0267 


ACTUAL 


3002 


AIOOP1 


3343 


AIODPL 


3342 


ALAIF 


0264 


ALAIS 


2641 


ALAIS2 


2642 


Bl 


333 6 


B2 


3337 


BASE 


276* 


BOCGHA 


0257 


BDCSTA 


0256 


BEGIN 


0271 


BIAS 


0260 


8IT0 


0181 


BITOO 


3180 


BIT1 


0182 


BIT10 


0191 


BIT11 


0192 


BIT12 


0193 


BIT13 


0194 


BIT14 


0195 


8IT15 


0196 


BIT2 


0183 


■- BIT3 


018V 


-BIT4 


9185 


BIT5 


0186 


BIT6 


0167 


BIT7 


0188 


BIT8 


0189 


BIT9 


0190 


BUFFI N 


3222 


BUFFOU 


3223 


CHAN 


0255 


CHECK 


2856 


CHECKA 


2885 


CHECKS 


2927 


CHECKC 


2929 


CHECKD 


2931 


CHECKE 


2958 


GHKO 


2899 


CHK1 


2902 


CHK2 


2905 


CHK3 


2907 


CHK4 


2914 


CHK4A 


2916 


CHK4B 


2921 


CHK4C 


2922 


CHK5 


2925 


CHKPAR 


2948 


CLRND 


0223 


COL 


3004 


COLUMN 


0259 


CONST 


0216 


COMTRO 


0159 


CONV 


0224 


CONVER 


0220 


HDOUNTE 


26 6 


CRPAOO 


0142 


CYCLES 


2696 


DATAIF 


0262 


OATAIS 


2639 


DELAY 


267«i 


OL1 


2649 


DL2 


2661 


0L3 


2665 


DL4 


2669 


0L5 


2673 


DLYPAR 


2644 


ENOSEG 


2331 


ENDTES 


2298 


EOFFLA 


0261 


EOPIF 


0263 


EOPIS 


2640 


EG. 


0151 


EQUIP 


0254 


ERR4 


3014 


ERR5 


3027 


ERR6 


3039 


ERR7 


3048 


ERR8 


3060 


ERRS A 


3068 


ERR88 


3072 


ERR8C 


3074 


ERR9 


3082 


ERRA 


3096 


ERRB 


3121 


-€*RC 


3135 


ERRD 


3150 


ERRE 


3166 


ERRF 


3183 


ERROR 


2975 


ERROR1 


3318 


ERR0R2 


3324 


ERRORS 


0240 


ERRORS 


0241 


ERR0R6 


0242 


ERR0R7 


0243 


ERRORS 


0244 


. — ERR0R9- 


42*5 


-ERRORA 


0246 


ERR0R8 


0247 


-ERRORG- 


0248 


ERRORO 


0249 


ERRORE 


0250 


ERRORF 


0251 


ETITLE 


3340 


EXIT 


0161 


EXP 


0268 


EXPECT 


3003 


FCLRIN 


0163 


GEN 


2712 


GENERA 


0252 


GENRAN 


0165 


H0OOO 


0197 


H000F 


■■0-199 


HBQ7F 


0212 


H00F0 


0200 


HOOFF 


0203 


H0780 


0211 


H0F00 


0201 


HQFFF 


0206 


H2020 


0213 


H7F00 


0210 


H7FFF 


0209 


HEXASC 


0168 


HFOOO 


0202 


HFOFF 


0208 


HFFOO 


0204 


HFFOFr 


0207 


HFFFO 


0205- 


HFFFF 


0198 


...J. ...-.-.. 


000 


IC10 


0235 


IC100 


0236 


ID 


2999 


INC 10 


2469 


INC100 


2465 


INCCT 


2444 


I NCR 


2675 


INFORM 


0178 


INITA 


3306 


INITAI 


2533 


INITAL 


0239 


INITD 


3293 


INITOA 


0237 


INI TBI 


2507 


INITEI 


2520 


INITEO 


0238 


INITIA 


3226 


INITZ 


3314 


INTLIN 


0155 


INTPRC 


2547 


INTR 


2563 


INTRO 


2611 


INTRi 


2585 


INTR2 


2592 


INTR2A 


2604 


INTR4 


2626 


INTRA 


2581 


INTRE 


2583 


INTROU 


2416 


JUMP 


0164 


LAST 


3341 


LASTAO 


0175 


LASTVA 


0174 


LOLICO 


0177 


LOLCOR 


0176 


LIMIT 


2475 


LOOPOO 


029 ^ 


LOOP01 


0311 


LOOP02 


0329 


LOOP03 


0357 


LOOP04 


390 


LO0P05 


0410 


LOOP06 


0426 


LOOP07 


0447 


LOOP0 8 


0468 


LOOP0 9 


0508 


LOOPOA 


0543 


LOOPOB 


i}578 


LOOPOC 


0599 


LOOPOD 


0621 


LOOPOE 


664 


L00P20 


0733 


LOOP30 


0894 


LOOP31 


1006 


LOOP40 


112 3 


LOOP50 


1230 


LOOP60 


1352 


LOOP70 


1487 


LOOP71 


1570 


L00P8G 


1677 


L0OP90 


1773 


LOOPAO 


1881 


LOOPBO 


1980 


L00P81 


2042 


LOOPCO 


2142 


LOOPC1 


2154 


L00PC2 


2173 


LOOPDO 


2239 


LO0P01 


2252 


L00P02 


2270 


LOP60A 


1353 


MAINL 


0171 


NCREST 


2319 


HESSAG 


0221 


MESSC 


2841 


HESSO 


2845 


HESSE 


2851 


MESSF 


2353 


MILLI 


. 2673 


MILLIQ. 


2688 


MILVAL 


2689 


HNTRi 


2480 


HNTR2 


2486 


MNTR3 


2*»87 


MNTR4 


2489 


MNTR5 


2*»90 


MNTR6 - 


2494 


MNTR9 


2500 


HONITO 


2477 


MOTOR 


3194 


MOT OR A 


3196 


HOTORB 


3204 


NOT ORG 


3208 


HOTORD 


3213 


OFFSET 


2958 


OFFSTl 


2966 


OFFSTF 


0269 


OVRLAY 


0169 


PAR 


2399 


PARADR 


0144 


PARAM 


2355 


PARAM1 


2361 


PARAM2 


2 362 


PARAM3 


2363 


PARAM4- 


2364 


PARAME 


2365 


PARAHF 


2371 


PARAHG 


2372 


PARERR 


2394 


PARITY 


2814 


PASSCT 


2303 
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OATEI 


01/04/75 


PATTO 


2723 


PATTOA 


2725 


PATT1 


2736 


PATT1A 


2739 


PATT2 


2758 


PATT3 


2761 


PATT3A 


?776 


PATT4 


2788 


PATT4A 


2790 


PATT5 


2802 


PATT5A 


2806 


PATTNO 


3005 


PIO 


2360 


PVA 


2825 


PYB 


2828 


QINT 


2417 


RANDOM 


0219 


REG 


0226 


REJECT 


2624 


RELPOS 


0170 


REPEAT 


2313 


REQINT 


0162 


REQND 


0222 


RESTAR 


0275 


RESYNF 


1458 


RETADO 


3001 


RETURN 


0145 


SflOA. 


301 


S01A 


0318 


S02A 


0338 


S02A1 


0344 


S02B 


0347 


SQ2C 


0335 


S03A 


0367 


S03A1 


0373 


S03B 


0376 


S03C 


3364 


S04A 


0397 


S05A 


0418 


S06A 


0434 


S07A 


0455 


S08A 


01»71 


S08B 


0479 


S08C 


0494 


S080 


0502 


S09A 


0511 


S098 


0519 


S09C 


529 


S09D 


0537 


SOAA 


546 


SOAB 


0551* 


SO AC 


564 


SOAD 


0572 


SOBA 


0586 


SOCA 


0607 


SODA 


062<» 


SOOB 


0632 


SODC 


0646 


SODD 


0654 


S20A 


0737 


S20B 


745 


S20C 


5748 


S20D 


0757 


S20E 


0769 


S20F 


0773 


S20G 


0778 


S20GA 


0795 


S20H 


0800 


S20I 


0808 


S20J 


0810 


S20K 


0818 


S20L 


0822 


S20M 


0830 


S20N 


0834 


S30A 


0898 


S308 


0906 


S3CC 


0911 


S30D 


0917 


S30DA 


0929 


S30E 


0934 


S30F 


0940 


S30G 


0965 


S30H 


0966 


S30I 


0974 


S30J 


0978 


S30K 


0986 


S31A 


1014 


S31B 


1022 


S31C 


1028 


S31D 


1038 


S31E 


1043 


S31F 


1047 


S31G 


1052 


S31H 


1060 


S31I 


1064 


S31J 


1072 


S31TIM 


1093 


S40A 


1126 


S403 


1136 


S40C 


1138 


S400 


1142 


S40E 


1151 


S40F 


1171 


S40FA 


1186 


S40G 


1190 


S50A 


1233 


S50B 


12«t3 


S50C 


1245 


S500 


1261 


S5QE 


1270 


S50EA 


1282 


S50F 


1290 


350FA 


1305 


S50G 


1309 


S60A 


1355 


S60B 


1365 


S60C 


1368 


S60D 


1383 


S60DA 


1411 


S60DA1 


1418 


S60DB 


11*07 


S60DC 


1402 


S60DCI 


1405 


S60E 


1421 


S70A 


1489 


S7QB 


1499 


S70C 


1510 


S70O 


1520 


S70E 


1529 


S70EA 


1547 


S70EB 


1552 


S70F 


1556 


S71A 


1580 


S71B 


1592 


S71C 


1606 


S71CA 


1625 


S71CB 


J.630 


S71D 


1634 


SflOA 


1680 


S80B 


1690 


seoc 


1692 


S80D 


1699 


S80E 


1706 


S80F 


1715 


S80G 


1718 


S80H 


1719 


S80I 


1725 


S80J 


1736 


S90A 


1776 


S90B 


1786 


S90C 


1788 


S9QD 


1795 


S90E 


1805 


S90F 


1812 


S90G 


1821 


S90H 


1824 


S9QI 


1825 


S90J 


1831 


S90K 


1842 


SAO A 


1884 


SAOB 


1894 


SAnc 


1897 


SAOCA 


1903 


SAOO 


1911 


SAOE 


1924 


SAOF 


1925 


SAOFA 


1930 


SAOG 


1936 


SBOA 


1990 


SBOB 


2006 


SBOC 


2016 


S3GD 


2 017 


S30OA 


2022 


SBQE 


2028 


S31A 


2052 


SB1B 


2065 


S31C 


2U80 


snio 


2081 


SB10A 


2086 


SB1E 


2092 


SEC 


0253 


SF.C0 


0284 


SECOA 


0679 


SECOB 


0684 


SEC1 


69 3 


SEC2 


0707 


SEC2A 


843 


SFC2B 


0851 


SEC3 


0861 


SEC3A 


1080 


SEC3B 


1068 


SEC3C 


1091 


SEC4 


1103 


SEC4A 


1196 


SEC4B 


1204 


SEC5 


1212 


SEC5A 


1315 


SEC58 


1323 


SEC6 


1331 


SEC6A 


1339 


SEC6A1 


1341 


SEC 6 8 


1438 


SEC6C 


14<»6 


SEC6D 


1453 


SEC7 


1465 


SEC7A 


1471 


SEC7R 


1640 


SEC7C 


1648 


SEC8 


1658 


SEC8A 


1741 


SEC8B 


1749 


SEC9 


1757 


SEC9A 


1847 


SEC98 


1855 


SECA 


1863 


SECAA 


1941 


SECA3 


19*49 


SECB 


1958 


SECBA 


2097 


SECBB 


2105 


SECC 


2119 


SECC A 


2127 


SECC8 


2132 


SECD 


2213 


SEC DA 


2221 


secds 


2229 


SECFRR 


1000 


SECTIO 


2338 


SECTOT 


0154 


SETHAS 


0172 


SJPAR 


0218 


SMM 


233 


SMMCNT 


0179 


SMMPAft 


0217 


SMHTYP 


0225 


START 


0156 


STAT 


2425 


STATIC 


0265 


STATUS 


0234 


STJP 


D173 


STOP2 


3110 


STOP 3 


3115 


STOPX 


0160 


TEMP 


2637 


TIME 


Q258 


TITLE 


3329 


TMP 


2638 


T3ACTV 


0214 


TSFREQ 


0215 


TTYBZY 


0167 


TVPEOU 


0166 


WNRCNT 


2 50 3 
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